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376 
377 
378 
379 
380 
381 
382 
383 
384 



6.0 LISTING 
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385 




386 




387 




388 




389 


000000 


390 




391 




392 




393 


001100 


394 




395 




396 




397 




398 


000011 


399 


000012 


400 


000015 


401 


000200 


402 


177776 


403 




404 


177774 


405 


177772 


406 


177570 


407 


177570 


40B 




409 




410 


000000 


411 


000001 


412 


000002 


413 


000003 


414 


000004 


415 


000005 


416 


000006 


417 


000007 


418 


000006 


419 


000007 


420 




421 




422 


000000 


423 


000040 


424 


P00100 


425 


000140 


426 


000200 


427 


000240 


428 


000300 


429 


000340 


430 




431 




432 


100000 


433 


040000 


434 


020000 


435 


010000 


436 


004000 


437 


002000 


438 


001000 


439 


000400 


440 


H00200 



.ENABLE ABS 

.LIST ME 

,NL1ST MC, MO, CHP 

6SwRs0 

.SRTTL BASIC DEFINITIONS 

;*INIT1AL ADDRESS OF THE STACK POINTER ### 1100 »** 
STACKS 1100 

.EQUIV EMT,EPPOR JJBASIC DEFINITION OF ERROR CALL 

.EQUIV IOT# SCOPE JJBASIC DEFINITION OF SCOPE CALL 



^MISCELLANEOUS DEFINITIONS 



HT* 

LFs 

CRe 

CRLFa 

PS* 

.EQUIV 



11 

12 

15 

700 

177776 

PS,PSW 



STKLMT* 177774 



PlRQs 
DSWRs 
DDISPa 



177772 
177570 
177570 



IICODE FOR HORIZONTAL TAB 
llCODE FOR LINE FEED 

mccde for carriage return 

llcode for carriage return-line feed 

mppocessop status word 

mstack limit register 
nprogram imerrup1 request register 
mhardwapf switch register 
|jhapd*are display hfgister 



;«GENERAL PURPOSE REGISTER DEFINITIONS 

F0s %0 IJGENERAL REGISTER 

Pis %1 nGENERAL REGISTEP 

R2s %2 nGENERAL REGISTER 

R3s %j nGENERAL REGISTER 

R4s %4 nGENERAL REGISTER 

P5* %5 nGENERAL REGISTER 

R6s %6 nGENERAL REGISTER 

P7s %7 nGENERAL REGISTER 

SP* %6 nSTACK POINTER 

PCs %7 nPPOGPAK COUNTER 



^PRIORITY LEVEL DEFINITIONS 



PPRs 
PPls 
PR2« 
PR3« 
PR4» 
PR5s 
PP6s 
PR7s 





40 

100 

140 

200 

240 

300 

340 



I JPRIOPIIY LEVEL 

I»PRI0RITY LEVEL 

nPRIORHY LEVEL 

» JPRIORITY LEVEL 

I JPRIORITY LEVEL 

| IPPIORITY LEVEL 

nPPlOPlTY LEVEL 

I JPRIORITY LEVEL 



;*"SWITCH REGISTER" SWITCH DEFIMTIOMS 



SWl5s 
SM4s 
5M3 = 

S^12s 
SWlls 

SW10S 
SW09s 
S*08s 
SW07b 



100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 
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441 


000100 


442 


000040 


443 


0W0020 


444 


000010 


445 


000004 


446 


000002 


447 


000001 


448 




449 




450 




451 




452 




453 




454 




455 




456 




457 




458 




459 




460 


100000 


461 


040000 


462 


020000 


463 


010000 


4b4 


004000 


465 


002000 


466 


001000 


467 


000400 


468 


000200 


469 


000100 


470 


000040 


471 


000020 


472 


000010 


473 


000004 


474 


1-001002 


475 


000001 


476 




477 




478 




479 




480 




481 




482 




4R3 




484 




485 




486 




487 




488 


000004 


489 


000010 


490 


000014 


491 


000014 


492 


000014 


493 


000020 


494 


000024 


495 


000030 


496 


000034 
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BASIC DEFINITIONS 



# * 



SW06s 

SW05s 

SW04« 

SW03s 

SW02a 

SW01s 

BW00B 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUTV 

.EQUIV 

, EQUIV 

.EQUIV 

.EQUIV 



100 

40 

20 

10 

4 

2 

1 

SW09,SW9 

SW08,SW8 

SW07,SW7 

SW06,SW6 

SW05,SW5 

SW04#SW4 

SW03,SW3 

8Wk>2|SW2 

sw0i,swi 

SW00,SW0 



') 



;#PATA BIT DEFINITIONS (BIT00 TO RIT15) 

BIT15= 100000 

BIT14B 40000 

PIT13= 20000 

BIT12a 1P000 

BITlla 4000 

BIT10B 2000 

BIT098 1000 

BIT08a 400 

BIT07B 200 

BlT06s 100 

BIT05S 40 

BIT04s 20 

BIT03a 1^ 

BIT02a 4 

BIT01s 2 

BIT00B 1 

.EQUIV BIT09,BIT9 

, EQUIV BIT08,BITR 

.EQUIV FIT07,BIT7 

.EQUIV BIT06,BIT6 

.EQUIV PIT05,BIT5 

.EQUIV BIT04,BIT4 

.EQUIV EIT«3,BIT3 

.EQUIV BIT02.B1T2 

.EQUIV BITP1#BIT1 

.EQUIV BITPI0,BIT0 



'' ~\ 



;*BASIC 

ERBVEC= 

BESVECs 

TBITVEC 

TPTVECa 

BPTVEC* 

IOTVEC 

PWRVEC 

EMTVECa 

TRAPVFC 



"CPU" TPAP VECTOR ADDRESSES 



4 
10 

«14 
14 
14 
20 
24 
30 

B34 



MTIMF OUT AND OTHER ERRORS 
IjPESERVfcD AND ILLEGAL INSTRUCTIONS 
I |"T" BIT 
JlTPACL TRAP 
MBREAKPOINT TRAP (BPT) 
jjINPUT/OUTPUT TPAP (IOT) «*SCOPE*# 
» »POWEP FAIL 

MEMULATOP TRAP (EMT) *#ERROR«* 
I I "TRAP" TRAP 
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TKVECs 60 
TPVECa 64 
PIPQVEC=24W 
,s0 
.SBTTL TPAP CATCHER 



497 




000060 


498 




000064 


499 




000240 


500 




000000 


501 






5<*2 






503 




000000 


504 






505 






506 






507 




000174 


508 


000174 


000000 


509 


000176 


000000 


510 




000200 


511 


0002120 


005067 0C0624 


512 


000204 


000167 000666 


513 


000210 


012767 000001 


514 


000216 


000167 000654 


515 






516 




177776 


517 




000034 


518 






519 




001000 


520 


001000 


177570 


521 


001002 


177570 


S22 


001004 


173000 


523 


001006 


001000 


524 


001010 


165000 


525 


001012 


001000 


526 


001014 


000000 


527 


001016 


000000 


529 


001020 


000000 


529 


001022 


000000 


530 


001024 


000000 


531 


001026 


000000 


532 


001030 


000000 


533 






534 






535 






536 






537 






538 




001032 


539 




000046 


540 


000046 


002060 


541 




000052 


542 


000052 


000000 


543 




001032 


544 






545 






546 






547 






548 






549 




001032 


550 




000024 


551 


000024 


000200 


552 




000044 



j >TTY KEYBOARD VECTOR 

I >TTY PRINTER VECTOR 

IjPROGRAM INTERRUPT REQUEST VECTOR 



.S0 

*ALL UNUSED LOCATIONS FROM 4 • 776 CONTAIN A ",+2#HALT" 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 
.■174 

nSOFTWARE DISPLAY REGI5TER 
IISOFTWARE SWITCH REGISTER 



DISPREGl .WORD 


SWRLGt 


.WORD 


,b200 






CLP TYPOUT 




JMP START 




MOV «l f TYPOUT 




JMP START 




PS=177776 




TPAPVECa34 


,al000 




SWR| 


177570 


DISPLAYl 177570 


R0MSA1I 


173000 


DATLN1I 


512. 


P0MSA2J 


165000 


DATLN2I 


512. 


XORSl 





EXCRCl 





EXLPCl 





ACTCRCi 





ACTLPCi 





PARCNT! 





TYPOUTJ 






.SBTTL ACTU HOOKS 

; j #«a* ##*««##« *#»##«»#*#«####*««»#»*#»#»#»«###**#««««««« #«#*»#«## 
;HOOKS PEOUIRED BY ACTU 

SSVPC*. JSAVE PC 

,a46 

8ENDAD MlJSET L0C.46 TO ADDPE5S OF 8ENDAD IN ,$EOP 

.852 

.WORD ||2)5ET L0C.52 TO ZERO 

.'SSVPC )) RESTORL PC 

, SBTTL APT PARAMETER BLOCK 

; | »«#««#«#*#«*»#»#*«#«##««## »#««#««##*####**«*####««#««#«« ***###* 

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

; I «#####«##*««»«#«#*««# « «#«* ## 0«$ tt «*«#« #««#«##«#### ««#«#«««««##«# 

,$Xa, nflAVE CURRENT LOCATION 

,*24 IJSET POWER FAIL TO POINT TO START OF PROGRAM 

200 I IFOR APT START UP 

,844 MPOINT TO APT INDIRECT ADDRESS PNTR. 
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) 



553 
554 
555 
556 
557 
558 
559 
560 
561 
5b2 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 

600 

601 
602 
603 
604 
605 
606 
607 
608 



001U32 
001032 
001034 
*W1036 

001040 
001042 
001044 



00104b 
001046 
001050 
001052 
001054 
001056 
001060 
001062 
001064 
001366 
001066 
001067 
001070 
001072 
O01074 



001076 
001102 
001106 



001120 
001126 
001134 
001142 



001150 
001154 
001162 



0^1032 

00 IP) 3 2 



000000 
001046 

000002 

000002 

000000 

000014 



000000 
000000 

000000 

000000 
000000 
000000 
1100000 
000000 

000 

00ld 

000000 

000000 

000000 



005067 
005067 
012767 



177746 
177740 

000001 



001114 012706 000500 



012737 
012737 
012737 
012737 



013 746 
012737 
012767 



004570 
000340 
004412 

000340 



000004 
001210 
177570 



00003 4 
000036 
000024 
000026 



000004 
177610 



SAPTHDI 






6HIBTS' 


.WORD 





gMBADRj 


,WOPD 


SMAIL 


STSTMJ 


.WORD 


? 


$PASTM| 


.WORD 


2 


8UMTM! 


.WORD 






SAPTHDR {{POINT TO APT HEADER ttLOCK 

, = e 8X {{RESET LOCATION COUNTER 
; j #&***#***»»**###*&»*##**##*»&&###*#**#*####»###*##» *#■»#**&&*&*» 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
jINTERFACE SPEC, 

{{TWO HIGH BITS OF 18 BIT MAILBOX ADDR, 
j j ADDRESS OF APT MAILBOX (BITS 0-15) 
{{PUN TIM OF LONGEST TEST 

jjRUN TIME IN SECS, OK 1ST PASS ON 1 UNIT (QUICK VERIFY) 
{{ADDITIONAL RUN TIME (SECS) OF A PAisS FOk EACh ADDITIONAL UMI 
,WOPD 8ETEND-S''AIL/2 { {LENGTH MAI LBOX-ETABLE (WORDS ) 
.SRTTL APT MAIl-BOX-ETABLt 

> {APT MAILBOX 

J {MESSAGE TYPE CODE 

{ JFATAL ERROR NUMBER 

J | TEST NUMBER 

{ {PASS COUNT 

{ {DEVICE COUNT 

J I I/O UNIT NUMbEP 

{{MESSAGE ADDRESS 

1 > MESSAGE LENGTH 

I {APT ENVIRONMENT TABLE 

) {ENVIRONMENT BYTE 

jlEKVIBONMEK'T MODE BITS 

{{APT SWITCH REGISTER 

{{USER SWITCHES 

{ {CPU TYPE, OPTIONS 
f* PITS 15-11=CPU TYPE 

;» 11/04=01,11/05=02,11/20=03,11/40=04,11/45=05 

;* ll/70akjfe,PDO = 07,Q=10 

{# BIT 10=REAL TIME CLOCK 

;* BIT 9=FL0ATING POINT PROCESSOR 

;« BIT 8=MEM0RY MANAGEMENT 

SETENDJ 
.MEXIT 

STARTJ CLR SFATAL 
CLF 8MSGTYP 
MOV #l,STESTM 
INITIALIZE THE COMMON TAGS 

#500, SP {{SETUP THE STACK POINTER 

FEW VECTORS 
•STRAP, OKTRAPVEC {{TRAP VECTOR FOR TRAP CALLS 
#340,a#TRAPVEC+2>LEVEL 7 

#$Pt<.RDN,»JiPWRVEC {{POWER FAILURE VECTOR 
t 340.MPWRVEC + 2 {{LEVEL 7 
HAFDwAFE SWITCH REGISTER, IF NOT FOUND OR IT IS 
;;FQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER, 
MOV P»ERRVEC,-(SP) {{SAVE ERROR VECTOR 

#64S,0»ERRVEC MSE1 UP ERROR VECTOR 

»DSWR,SWR {{SETUP FOR A HARDWARE SWICH REGISTER 



• {**##*■»*####■»***•#«*#*■ 


.EVEN 






6MAILI 






SMSGTYI 


.WORD 


AMSGTY 


SFATALJ 


.WORD 


AFATAL 


STF5TN: 


.WORD 


ATESTN 


SPASSt 


.WORD 


APASS 


6DEVCTJ 


,wopn 


AHEVCT 


SUNITI 


.WORD 


AUMT 


SMSGADl 


.WORD 


AMSGAD 


SMSGLGI 


.WORD 


AN'SGLG 


SETABLE: 






SLNVt 


.BYTE 


AENV 


SENVMj 


.BYTE 


AENVM 


8SWREGJ 


.WORD 


ASWREG 


•USWPi 


.WORD 


AUSWR 


SCPUOPt 


.WORD 


ACPUOP 



.SBTTL 

MOV 

; {INITIALIZE 
MOV 
MOV 
MOV 
MOV 

; {SIZE FOR 



MOV 

MOV 



{CLEAR ERROR NO. 

{CLEAR MESSAGE TYPE (APT) 

{SET TEST NO, 
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610 
611 
612 
613 
614 
615 
616 
bl7 
618 
bl9 
620 
621 
622 
623 
624 
625 
b26 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
617 
b3B 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 



001170 012767 
001176 022777 
001204 001012 



001206 
001210 
001214 
001216 
001224 
001232 

001236 
001242 
001250 
001252 
001260 
O01260 
0012b6 
O01270 
001272 

001274 
001302 
001304 
001312 
001316 
001320 
001322 
001330 
001336 
001344 
001352 
001360 
001366 
001370 
001374 
001376 
001404 
001406 
001412 
001 414 
001416 
001420 
001422 
001426 
001430 
001432 
001434 
001440 
001442 
001444 
001446 
001452 
001454 
001456 
001460 



00P403 
012716 
000002 
012767 
012767 
012637 

005067 
132767 

001403 
(412767 

026727 
001 402 
104401 
005276 

123727 
00100 3 
012767 
017700 
001424 
006300 
016067 
016067 
016067 
016067 
016067 
016067 
000450 
005767 
001045 
122767 
001441 
005767 
001012 
104401 
005311 
104407 
012667 
104401 
005335 
104407 
012667 
104401 
005515 
104407 
012667 
104401 
005655 
104407 
012667 



177570 
177777 



000176 
000174 
000004 

177612 

000200 

00107O 
176556 



004714 
004644 
004766 
005036 
005106 
005156 

176446 

00«fc0l 
177416 



177370 



177604 
177574 



177554 
177550 



000176 000006 



00017b 
177462 



177470 
177460 
177442 
177432 
177432 
177422 



666! 



MOV 
CMP 

BNL 

BR 

MOV 

RTI 

MOV 
MOV 
MOV 



CLP 
177617 BITB 

BEQ 
177520 MOV 

67$: 

002060 CMP 

BEQ 
TYPE 
TITL 



177322 



PESTRTJ CMpB 
BNE 
MOV 

If I MOV 

RF.Q 
ST2J A5L 

MOV 
MOV 
MOV 
MCV 
MOV 
MOV 

GETINI T5T 
BNE 
CMPB 
BEQ 
TST 
ENE 
TYPE 
GETCPC 
RDOCT 
MOV 
TYPE 
CETLPC 
RDOCT 
MOV 

GET2I TYPE 
SA1 
RDOCT 
MOV 
TYPE 
SIZE1 
PDOCT 
MOV 



»DDISP, DISPLAY 
#-l,iaswp 

66$ 

65$ 
#65$, (SP) 



J {AND A HAPDWAPfc DISPLAY REGISTER 
{{TRY TO REFERENCE HARDWARE SWR 
{{BRANCH IF NO TIMEOUT TRAP OCCURRED 
{{AND THE HARDWARE SWR IS NOT = -1 
{ {BRANCH IF NO 1IME0UT 
{ {SET UP FOR TRAP RETURN 



*SWPEG,SWR {{POINT TO SOFTWARE SWR 

SDISPREG, DISPLAY 

(SP)+,P*EPRVEC J {RESTORE ERROR VECTOR 



SPASS 

•APTSIZEf StMVM 
678 
*SSwREG,SWR 

42,*SENPAD 
RESTPT 



»»176,»6 

IS 

«SWREG,SWR 

05WR,F0 

GETIN 

R0 

TXLPC(R0),EXLPC 

TXCPC(R0),EXCRC 

TPLN1(P0),DATLN1 

TRMSA! (P0)»ROM5A1 

TOLN2(R0)#DATLN2 

TRMSA2(p0)#ROM5A2 

CHECK 

42 

C"FCK 

M,$EHV 

CHECK 

TYPOUT 

GFT2 



} {CLEAR PASS COUNT 

{{TEST USER SIZE UNDER APT 

{ {YES, USE NON-APT SWITCH 

J {NO, USE APT SWITCH REGISTER 



(5P)+,EXCRC 



(SP) + ,EXI.PC 



(SP)+,R0MSA1 



(SP)+,DATLN1 



{ACT AUTO MODE? 
JY1F SOI BR 



{IS SOFTWARE SWITCH REGISTER =6? 

J IF NOT, TEST NORMALY 

{IF SO USE THE SOFTWARE SWITCH REG 

{GET SWR 

>IF ZERO I GET INPUT 

{FETCH EXPECT, IPC 
{FETCH EXPECTED CRC 
{FETCH 1ST LENGTH 
{FETCH 1ST STARTING ADDR, 
{FETCH 2ND LENGTH 
{FETCH 2ND STARTING ADDR 
{GO COMPUTE 

{UNDER ACT AUT ACCEPT? 
{IF S0{ BR USE DEFAULT PARAMETERS 
{UNDER APT? 
{IF SO; BR 
{ROM TYPE OPTION 
{IF SOl BR 



{STORE EXPECT, CRC 
{TYPE LPC INPUT REQUEST 



{STORE EXPECTED LPC 



{REQUEST 1ST ADDRESS SPACE 
{INPUT SA 



{REQUEST LENGTH OF 1ST ADDR, SPACE 
{INPUT LENGTH 
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■I • 



6b5 


041464 


104401 






TYPE 




666 


031466 


005575 






SA2 




6fa7 


00147.9 


104407 






RDOCT 




668 


001472 


012667 


177312 




MOV 


(SPH,R0MSA2 


669 


001476 


104401 






TYFE 




670 


001S00 


005735 






SIZE2 




671 


001502 


104407 






PDOCT 




672 


001504 


012667 


177302 




MOV 


fSP)+#DATLN2 


673 


001510 


005767 


177314 


CHECKj 


TST 


TYPOUT 


674 


001514 


001402 






BEQ 


13 


675 


001516 


000167 


000660 




JMP 


TYPROM 


676 


001522 


005067 


177274 


is: 


CLR 


ACTCRC 


677 


001526 


005067 


177272 




CLP 


ACTI.PC 


678 


001532 


016700 


177250 




MOV 


DATLN1,P0 


679 


001536 


001413 






BEQ 


CH0 


660 


001540 


016701 


177240 




^OV 


R0M5A1,R1 


681 


001544 


004767 


000324 




JSR 


PCCPC 


662 


001550 


016701 


17723(6 




MOV 


ROMSAlrPl 


683 


001554 


016700 


177226 




MOV 


DATLN1,P0 


6S4 


001560 


006200 






ASR 


R0 


685 


001562 


004767 


000556 




JSK 


PC, LPC 


686 


001566 


016701 


177216 


CHOI 


MOV 


ROM8A2iPl 


687 


001572 


016700 


177214 




MOV 


DATIN2#R0 


688 


001576 


001422 






BEQ 


CHI 


689 


001600 


004767 


000270 




JSP 


PC, CRC 


690 


001604 


016701 


177230 




MOV 


R0MSA2.R1 


691 


001610 


016700 


177176 




MOV 


DATLN2,P0 


692 


(101614 


O0620O 






ASH 


R0 


693 


001616 


004767 


0O0S 2 2 




JSR 


PCiLPC 


694 


001622 


122767 


000001 


177236 


CMPB 


*1,SENV 


695 


001630 


001403 






BEQ 


IS 


696 


001632 


005767 


176204 




TST 


42 


697 


001636 


001402 






BEQ 


CHI 


698 


001640 


000167 


000656 


181 


JMP 


AUTACT 


699 


001644 


026767 


177146 


177150 CHii 


CMP 


EXCRC, ACTCRC 


700 


001652 


001431 






PEQ 


CK1 


701 














702 


001654 


104401 






TYPE 




703 


001656 


005361 






EXCPMG 




704 


001660 


016746 


177132 




MOV 


EXCRC, -(SP) 


7(45 


001664 


104402 






TYPOC 




706 


001666 


104401 






TYPE 




707 


001670 


005430 






ACCPMG 




708 


001672 


016746 


177124 




MOV 


ACTCRC, -C5P) 


709 


001676 


104402 






TYPOC 




710 


001700 


026727 


176136 


002060 


CMP 


42,»SENDAD 


711 


001706 


001404 






BEQ 


15 


712 


001710 


122767 


000001 


177150 


CMPB 


#1,SENV 


713 


001716 


001007 






PNE 


CK1 


714 


001720 


012767 


000002 


177122 IS 1 


MOV 


*2,SFATAL 


715 


001726 


012767 


0110001 


177112 


MOV 


#1,SMSGTYP 


716 


001734 


000000 






HALT 




717 














718 


001736 


026767 


177062 


177054 CKli 


CMP 


ACTIPCFXLPC 


719 


001744 


001431 






BEQ 


CK2 


720 


001746 


104401 






TYPE 





»REQUEST START ADDR, FOP 2«ID SPACE 



JREQUEST LENGTH OF 2ND SPACE 

JINPUT LENGTH 

j IS TYPOUT REQUESTED? 

1BRANCH IF NOT 

I GO TYPE OUT POM 

JCLEAR STORAGE FOR ACTUAL CRC 

iCLEAR STORAGE FOP ACTULAL LPC 

ISET LENGTH OF 1ST ROM SPACE 

|IF NO VERSION SELECTED! BR 

IPOINT TO START OF 1ST RO* SPACE 

JCOMPUTE FIRST hALF OF CRC 

JPOINT TO START OF 1ST ROM ADDRS, 

ISET LENGTH OF 1ST ROM ADDRS, 

FC0NVER1 TO WORDS 

JCOMPUTE FIRST HALF OF CRC 

JPOINT TO 2ND ROM ADDRS. 

JSET LENGTH OF 2ND ROM ADDRS, 

|BR IF THIS SPACE NOT USED 

JCOMPUTE REMAINDER OF CRC 

JPOINT TO START OF 2ND ROM ADDRS, 

ISET LENGTH OF 2ND ROM ADDRS, 

JCONVERT TO WORDS 

JCOMPUTE REMAINDER OF LPC 

JUNDER APT? 

» IF SOI BR 

JUNDER ACT AUTO ACCEPT? 

JIF NOTl BR 

jCOMPUTED s EXPECTED ? 
I IF SOI BR 

ITYPE CRC ERROR MESG, 

JPUT EXPECT CRC ON STACK 
ITYPE EXPECTED CRC 
ITYPE ACTUAL CRC MESSG 

JPUT ACTUAL CRC ON STACK 

ITYPE ACTUAL CRC 

jUNDEh ACT AUTO MODE? 

I IF SOI BR 

JUNDER APT? 

JIF NOT! BR 

|MOVE TO MAILBOX ERROR NO, #*«« 

ISET MAILBOX FOR FATAL ERROR 

»CRC ERROR 

ICOMPAPE EXPT, LPCsACTUAL LPC 

IIF SOI Bh 

ITYPE LPC ERROR MESSG, 



) 
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721 


001750 


005404 








EXLPMG 






722 


001752 


016746 


177^42 






MOV 


EXLPC-(SP) 


IPUT EXPECTED LPC ON STACK 


723 


001756 


104402 








TYPOC 




;TYPE EXPEC1ED LPC 


724 


001760 


104401 








TYPE 




ITYPE ACTUAL LPC MESSG, 


725 


001762 


005453 








ACLPMG 






726 


001764 


016746 


177034 






MOV 


ACILPO-(SP) 


JPUT ACTUAL LPC ON STACK 


727 


001770 


104402 








TYPOC 




JTYFE ACTUAL LPC 


728 


001 772 


026727 


176044 


002060 




CMP 


42»*SENDAD 


IUNDEH ACT AUTO MODE? 


729 


002O0O 


001404 








BEQ 


18 


ITF SOl 5R 


730 


002002 


122767 


000001 


177056 




CMPfa 


11 iSENV 


JUNDER APT? 


731 


002010 


001007 








PNE 


CK2 


JIF NOTl BR 


732 


002012 


012767 


000003 


177030 


1SI 


MOV 


*3,SFATAL 


IMOVE TO MAILBOX FRROP NO, ** 


733 


002020 


012767 


000C01 


177020 




MOV 


8l»$MSGIYP 


JSET MAILBOX FOR FATAL ERPOP 


734 
735 


002026 


000000 








HALT 




ILPC ERROR 


736 


002030 


026727 


1760O6 


0O2060 


CK2I 


CMP 


42,*SENDAD 


JACT AUTO ACCEPT? 


737 


002036 


O01402 








BEQ 


IS 


JIF SOI BR 


738 


002040 


104401 








TYPE 




jTYPE END OF TEST 


739 


002042 


005476 








EOTST 






7 40 


002044 


005267 


177004 




1SI 


IMC 


8PAS5 


JBUMP PASS COUNT 


741 


£02050 


01370O 


000042 






MOV 


8*42, P0 


JCHECK APT 


742 


002054 


0014O5 








BEQ 


GOflGIN 


JKEEP GOING 


743 


002056 


000005 








RESET 






744 


002060 


00471O 






8ENDADI 


JSR 


PC. CPU) 


JACT HOOKS 


745 


002062 


000240 








NOP 






746 


002064 


000240 








NOP 






747 


002066 


000240 








NOP 






748 
749 

750 


002070 


000167 


177200 




GOAGTNl 


JMP 


RFSTRT 


JDO AGAIN 


002074 


016767 


176722 


176712 


CRCt 


,MOV 


ACTCPCXOPS 




751 


002102 


111104 






CL0I 


MOVB 


(RD.R4 


IGET CHAR, 


752 


002104 


022701 


173024 






CMP 


0173024, PI 


jLOCATION EFFECTED BY SWITCHES 


753 


002110 


001O04 








BNE 


CL3 


IIF NOTl BR 


754 


002112 


00530O 








DEC 


P0 


jFIX COUNTERS 


755 


002114 


00«5300 








DEC 


RO 




756 


002116 


005721 








TST 


(Pl) + 


jFIX POINTER 


757 


002120 


000770 








PR 


CL0 


JCQNTINUE 


758 


002122 


004767 


000114 




CL3I 


JSR 


PC, PARITY 


JGO GET PARITY 


759 


002126 


004767 


000366 






JSR 


PCXOR 


IXOR CHAR 


760 


002132 


000241 








CLC 






761 


002134 


006004. 








ROP 


R4 


IROTATE 1 POS, RIGHT 


762 


002136 


103014 




•*' 




BCC 


CL2 


JIF NO CARRYl BR 


763 


032140 


052704 


000400 






BIS 


#400, R4 


ISET BIT NINE 


764 


002144 


000241 








CLC 






765 


002146 


010405 






CL1I 


MOV 


R4,P5 


1SAVE CHAR 


766 


002150 


042705 


177703 






BIC 


8177703, P5 




767 


002134 


005105 








COM 


R5 




768 


002156 


042705 


177703 






BIC 


#177703, R5 




769 


002162 


042704 


0O0O74 






BIC 


S74,P4 




770 


002166 


050504 








BIS 


P5,P4 




771 


002170 


01O467 


176620 




CL2I 


MOV 


R4,X0RS 




772 


002174 


005300 








DEC 


R0 




773 


002176 


001402 








BEQ 


CLLAST 


IIF LAST CAR.I BR 


774 


0022O0 


000167 


177676 






JMP 


CL0 


jGET NEXT CHAR, 


773 


002204 


016704 


176604 




CLLA5TI 


MOV 


X0RS#R4 




776 


0O2210 


005167 


176600 






COM 


XORS 
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777 


002214 


042767 


17 705O 


176572 


BIC 


#177050, XOPS 


778 


002222 


042704 


177727 




PIC 


#177727, R4 


779 


042226 


050467 


176562 




BIS 


R4#X0PS 


780 


032232 


016767 


176556 


176562 


MOV 


XOPS,ACTCRC 


781 


('02240 


000207 






PTS 


PC 


782 


002242 


005067 


176560 


PARITYI 


1 CLP 


PARCNT 


781 


002246 


012703 


000010 




MOV 


#10, R3 


7B4 


00225? 


032704 


000001 


CLP0J 


BIT 


#1 ,F4 


785 


002256 


001402 






BEQ 


CLP! 


786 


002260 


005267 


176542 




INC 


PAHCNT 


787 


002264 


000241 




CL.P1! 


CLC 




788 


002266 


006004 






POR 


P4 


789 


002270 


005303 






DEC 


Hi 


790 


002272 


001367 






BKE 


CI-P0 


791 


002274 


112104 






MOVn 


(R1)+,R4 


792 


002276 


042704 


177400 




BIC 


«177400,P4 


793 


002302 


032767 


0C0001 


176516 


BIT 


IHtPAPCNT 


794 


002310 


001002 






BNE 


CLP 2 


795 


002312 


052704 


0004C0 




BIS 


*400,F4 


796 


002316 


000207 




CLP2I 


RTS 


PC 


797 














79B 


002320 


010446 




XOPi 


MOV 


P4,-CSP) 


799 


002322 


046716 


176466 




BIC 


XCRS,(SP) 


800 


002326 


040467 


176462 




BIC 


P4,X0RS 


801 


002332 


052667 


176456 




BIS 


CSP)+,XORS 


802 


002336 


016704 


176452 




MOV 


X0PS,P4 


803 


002342 


000207 






PTS 


PC 


804 














805 


002344 


W16767 


176454 


176442 LPCI 


MOV 


ACTLPCXOPS 


806 


002352 


012104 




LPCll 


MOV 


(Rt)* f R4 


807 


002354 


022701 


173026 




CMP 


M73026,R1 


808 


002360 


001402 






BEQ 


LPC2 


809 


002362 


004767 


177732 




JSR 


PCXOR 


810 


002366 


005300 




I.PC2I 


DEC 


RP 


811 


002J70 


001370 






BNE 


LFC1 


812 


002372 


016767 


176416 


176424 


MOV 


XORS,ACTLPC 


813 


002400 


000207 






PTS 


PC 


814 














815 


002402 


104401 




TYPROMj 


TYPE 




816 


002404 


006023 






TYPHDH 




817 


002406 


016700 


176372 




MOV 


hOMSAl,F«0 


818 


002412 


016701 


176370 




MOV 


DATLN1,P1 


819 


002416 


006201 






ASP 


Rl 


820 


002420 


001402 






BEQ 


TYPR1 


821 


002422 


004767 


000P26 




JSR 


PC,TYP 


822 


002426 


016700 


176356 


TYPRil 


MCV 


ROMSA2,P0 


823 


002432 


016701 


176354 




MOV 


DATLN2,P1 


824 


002436 


006201 






ASP 


PI 


825 


002440 


001402 






BEQ 


E.NDOT 


826 


002442 


004767 


000006 




JSR 


PCTYP 


827 


002446 


104401 




EMDOTi 


TYPE 




828 


002450 


005476 






EOTST 




829 


002452 


000000 






HALT 




830 














831 


002454 


104401 




TYPl 


TYPE 




832 


002456 


006015 






CAPLF 





^COMPLEMENT ALL BUT BITS 3 & b 



JCLEAR BIT COUNTER 
jSET NO, OF BITS 
ISLE IF ONE BIT 
JIF NOTI BR 
;BUMP COUNTER 

{ROTATE TO NEXT BIT 

ICONTINUE FOR ALL BITS 



jSEE IF ODD # OF ONfc BITS 

i if soi br 

jset parity bit 
;exit 

jxqr subroutine! r4 with xurs 



jLOCATION EFFECTED BY SWITCHES 
llY SOI SKIP LOC, BY BRANCHING 



jTYPh HEADER 

IPOINT OT 1ST RUM SPACE 

JPUT LENGTH IN Rl 

jCOMERT TO WORDS 

JBRANCH IF 1ST POM SPACE NOT USED 

jGO TYPE 1ST ADDR, SPACE 

;pOINT TO 2ND ADDR. SPACE 

JPUT LENGTH IN PI 

JCONVEPT TO WORDS 

JBP IF 2ND ADDR, SPACE NOT USED 

»G0 TYPE 2ND ADDR, SPACE 



,MAIN 9 MACYtl 30AC1052) 17-APR»79 10114 PAGE 19 

CZM9AE.P11 17-APR»79 1 1 1 2 INITIALIZE THE COMMON TAGS 



833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
648 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
8bl 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
B77 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 O02640 &11646 



002460 
002462 
002466 
002470 
002472 
W02474 
002476 
002500 
002502 
002504 
002506 
002510 
002512 
002514 
002516 
002520 
002522 
002524 
002530 
002536 
002540 
002546 
002550 
002556 
002560 
002566 
002570 
002572 
'402600 
002606 

002612 
002614 
002616 
002624 
002632 



000403 
032700 
001006 
104401 
006015 
010046 
104402 
104401 
006060 
012046 
104402 
104401 
006020 
005301 
001361 
000207 
005000 
062700 
026027 
001425 
026067 
001366 
023727 
001405 
016067 
104401 

000000 

016067 
016067 
000167 

104401 
006064 
012767 
012767 

000000 



002634 177560 
002636 177562 



000002 
005226 

004644 

000042 

005226 



004644 
004714 
177124 



000001 
000001 



176254 



176216 
176212 



TYP0I 



TYP3I 



TYP2! 



BP 

BIT 

BNE 

TYPE 

CARLF 

MOV 

TYPOC 

TYPE 

COLON 

MOV 

TYPOC 

TYPE 

SP2 

DF.C 

BNE 

PTS 

autact: clr 

AUT1 I ADD 

f>Mp 

BEQ 
CMp 

BNE 
CMp 
BFQ 
MOV 
TYPE 



AUT2I 
AUT3J 



MOV 
MOV 
JMP 



AUTERPl TYPe 

AUTERM 
176224 MOV 

176214 MOV 

HALT 



TYP3 

#3,R0 

TYP2 



P0,-CSP3 



Fl 

TYP0 
PC 
R0 

*2,RP 
TMSGCP0),»-1 
AUTEPR 

1XCPC(P0),ACTCRC 
AUT1 

P»42,*SENDAD 
AUT3 
TMSG(HH),AUT2 



TXCPC(R0),EXCRC 
TXLPCfR0),EXLPC 
CK1 



*1,$FATAL 
#1# SMSGTYP 



IADDPESS MULTIPLE OF 4? 
JIF NOT: BR 



JPUT ADDRESS ON STACK 
;TYPE ADDR, 



JPUT DATA ON STACK 
JTYP DATA 
JTYPE 2 SPACES 

JFINISHED? 
I IF NOT? BR 
JRETURN 

JBUMP TALBE INDEX 

jCHECKED ALL KNOWN VERSIONS? 

JIF SOJ bP 

JUOES THIS CPC AGREE? 

JIF NOTI KEEP LOOKING 

I UNDER ACT AUTO ACCEPT? 

JIF SO J BF 

JSET UP VERSION MESSAGE 



JSET EXFECTED CRC 
JSET EXPECTED LPC 
JCHECK LPC ' 



JMOVE TO MAILBOX ERROR NO, *»## 
JSET MAILBOX FOR FATAL tRROH 
JAUTO ACCEPT FAILED 



.SBTTL TTY INPUT ROUTINE 



STKSl ,WOPD 177560 jjTTY KBD STATUS 

STKB1 .WORD 177562 JJTTY KBD BUFFER 
.ENABL LSB 

.DSABL LSB 

n «*#»#*«*****###*«#*#*#*###**##*#*#*#»#*##*«*#######*##*#*####** 

;*THI5 ROUTINE WILL INPUT A SINGLE CHARACTER FROM THF TTY 

j#CALLl 

i* *DCHP J I INPUT A SINGLE CHARACTER FROM THE TTY 

J» RFTUPN HERE JjCHARACTER IS ON THE STACK 

J* jjWITH PARITY BIT STRIPPED OFF 



8R.DCHPI MOV 



(6P),-(SP) 



JJPUSH DOWN THE PC 



♦ • 
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889 


002642 


016666 


000H04 


900002 


890 


00265A 


105777 


177760 




891 


002654 


100375 






892 


002656 


117766 


177754 


0fe0004 


893 


002664 


0427t>6 


177600 


000004 


S94 


002672 


026627 


0l';0004 


000023 


895 


002700 


001013 






896 


002702 


105777 


177726 




897 


002706 


100375 






898 


002710 


117746 


177722 




899 


002714 


042716 


177b00 




900 


002720 


022627 


000021 




9P»1 


002724 


001366 






902 


002726 


000750 






903 


O02730 


026627 


000004 


000140 


904 


002736 


002407 






905 


002740 


026627 


000004 


000175 


906 


002746 


003003 






907 


002750 


042766 


000040 


000004 


908 


002756 


000002 






909 










910 










911 










912 










913 










914 










915 










916 


002760 


010346 






917 


002762 


005046 






918 


002764 


012703 


003214 




919 


002770 


022703 


003224 




920 


002774 


101456 






921 


002776 


104405 






922 


003000 


112613 






923 


003002 


122713 


000177 




924 


003006 


001022 






925 


003010 


005716 






926 


003012 


001007 






927 


003014 


112767 


000134 


000170 


928 


003022 


104401 


003212 




929 


003026 


012716 


177777 




930 


003032 


005303 






931 


003034 


020327 


003214 




932 


003040 


103434 






933 


003042 


111367 


000144 




934 


003046 


104401 


003212 




935 


001052 


000746 






936 


003054 


005716 






937 


003056 


0014"I6 






938 


003060 


J12767 


000134 


000124 


939 


003066 


104401 


003212 




940 


003072 


005016 






941 


003074 


122713 


000P25 




942 


003100 


001003 






943 


003102 


104401 


003230 




944 


003106 


000726 









KOV 


4CSP),2(SP) ? 


1 S 8 


TSTB 


BSTKS J 




BPL 


IS 1 




MOVB 


3STKB,4C6P) I 




BIC 


«"C<177>,4(SP) | 




CMP 


4(SP),#23 | 




BNE 


3S ; 


2$l 


TSTB 


P8TKS 1 




BPL 


2S > 




MOVB 


0STKB,-(SP) | 




BIC 


8-C177,(SP) 1 




CMP 


(SP)+,#21 1 




BNE 


2$ ; 




BP 


13 1 


331 


CMP 


4(5P),#140 | 




BLT 


4S t 




CMP 


4(SP)##175 J 




BGT 


4$ J 




BIC 


»40,4(SP) I 


4SI 


PTI 




; | #*■»**##*#■»#*»#■&#»•»#•»*##*#*#**#* 


;*THIS 


POUT I ME 


WILL INPUT A STHIN 


j#CALM 






i * 


PDLIN 




;« 
»* 


RETURN 


HERE I 


SPDLINJ 


MOV 


P3,-(SP) ; 




CLP 


-(SP) > 


181 


MOV 


«$TTYIN,P3 J 


233 


CMP 


MTTYIN + B,,R3 I 




BL05 


48 J 




PDCHH 






MOVB 


(SP)+,(P3) 1 


1081 


CMPB 


#177, (R3) J 




BNE 


53 1 




TST 


(SP) 1 




BNE 


6$ 1 




MOVB 


*'\,9$ | 




TYPE 


»9« 




MOV 


*-l,(SP) I 


6$l 


DEC 


R3 1 




CMP 


R3,#STTY1N | 




BLO 


4$ 1 




MOVB 


(P3),9$ I 




TYPE 


,9$ I 




BP 


28 1 


511 


TST 


(SP) | 




BEQ 


76 ? 




MOVB 


»'\,9$ I 




TYPE 


#98 




CLR 


(SP) ; 


781 


CMPB 


»25,(P3) i 




BNF 


8$ > 




TYPE 


, SCNTLU 1 




BR 


JS ; 



JlSAVE THE PS 
jWAIT FOR 
|A CHARACTER 
J READ THE TTY 
{GET RID OK JUNK IF ANY 
jIS IT A CONTROL-S? 
{BRANCH IF NO 
{WAIT FOP A CHARACTER 
jLOOP UNTIL ITS THERE 
>GET CHARACTER 
fMAKE IT 7-BIT ASCII 
|1S IT A CONTROL-Q? 
|IF NOT DISCARD IT 
J YES, RESUME 
|1S IT UPPER CASE? 
JBBANCH IF YES 
>IS IT A SPECIAL CHAR? 
IBPANCH IF YES 
I^AKE IT UPPER CASE 
>GO BACK TO USER 

ING FROM THE TTY 

{INPUT A STRING FROM THE TTY 

IADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

ITERM1NATOP WILL BE A bYTE OK ALL 0'S 

ISAVE R3 

ICLEAP THE RUBOUT KEY 

|GET ADDRESS 

(BUFFER FULL? 

fBP IF YES 

|GO READ ONE CHARACTER FROM THE TTY 

|GET CHARACTER 

US IT A RUBOUT 

»BR IF NO 

US THIS THE FIRST RUBOUT? 

|BR IF MO 

ITYPE A BACK SLASH 

ISET THE RUBOUT KEY 

{BACKUP BY ONE 

ISTACK EMPTY? 

»BR IF YES 

ISETUP TO TYPEOUT THE DELETED CHAR. 

»GO TYPE 

|GO READ ANOTHER CHAR, 

IRUBOUT KEY SET? 

I BR IF NO 

|TYPE A BACK SLASH 

ICLEAR THE RUBOUT KEY 
IIS CHARACTER A CTRL U? 
|BR IF NO 

ITYPE A CONTROL H U H 
|GO START OVER 



) 
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945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 

1000 



003110 
003114 
003116 
003120 
003124 
003130 
003132 
003136 
003140 
003144 
003150 
003154 
003156 
003162 
003166 
003170 
003172 
003174 
003202 
003210 
U01212 
003213 
003214 
003224 
003225 
003226 
003230 
003235 
003242 
003250 
003253 
001260 



003264 
003266 
303274 
003276 
003300 
003302 
003304 
003306 
003312 
003314 



122713 
001011 
105013 
104401 
104401 
000717 
104401 
000712 
111367 
104401 
122723 
001305 
105063 
104401 
005726 
012603 
U1646 
016666 
012766 

000002 
000 
000 

000010 
077 
015 

000012 

052536 
136 

005015 

P20075 
040 

036440 



011646 
016666 
010046 
010146 
010246 
104406 
012600 
010067 
003001 
005002 



003225 
003214 



000046 
0fe!3212 

000015 

177777 
003226 



000004 000002 
003214 000004 



005015 
0H6507 
053523 

P00 
047040 

00004P 



000 
000012 
020122 



003004 000002 



4$: 
3$: 



95: 

STTYIN 

8QUESI 

SCRLFj 

SLFI 

SCNTLU 

SCNTLG 

SMSWR: 



CMPB 

BNE 

CLRB 

TYPE 

TYPE 

BR 

TYPE 

BP 

MOVP 

TYPE 

CMPB 

BNE 

CLPB 

TYPE 

TST 

MOV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

,BLKB 

.ASCII 

.ASCII 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 



*22,(R3 
38 

(T>3) 

,$CPLF 

,6TTYIN 

28 

, SQUE5 

1$ 

(R3),9$ 

,98 

#15, (R3 

2$ 

•1CP3J 

,$LF 

CbP)* 

(SP)+,R 

(SP),-( 

4(SF),2 

8STTYIN 



3 

SP) 
(SP) 
,4(SP) 



US CHARACTER A «-p»? 

IBPANCH IF NO 

ICLEAP THE CHARACTER 

ITYPE A "CR" & H LF" 

{TYPE THE INPUT STRING 

» GO PICKUP ANOTHER CHACTER 

I TYPE A '?' 

ICLEAR THE BUFFER AND LOOP 

lECHO THE CHARACTER 

iCHECK FOR RETURN 

JLOOP IF MOI RETURN 

JCLFAR RETURN (THE 15) 

HYPE A LINE FEED 

iCLEAN RUBOUT KEY FROM THE STACK 

{RESTORE R3 

jAPJUST THE STACK AND PUT ADDRESS OK THE 

I FIRST ASCII CHARACTER ON IT 



IRETURN 

ISTORAGE FOR ASCII CHAR, TO TYPE 

1TERMINAT0R 

{RESERVE 6 BYTES FUR TTY INPUT 
w ?" II0UEST10N MARK 
<15> {CARRIAGE RETURN 
<12> {{LINE FEED 
/*U/<15><12> » {CONTROL "U" 
/•G/<15><12> HCONTROL "G" 
<15><12>/SWR s / 



8MNEWI .ASCIZ / MEW = / 

.SBTTL READ AN OCTAL NUMBER FROM THE TTY 

I | *#######*####*#*##■»#** ####&###########*»*#####*##**### »##««*##« 

|»THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 

l#CHANGE IT TO BINARY. 

; *THE INprjT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 

{*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?" WILL BE TYPED 

{^FOLLOWED BY A CARRIAGE RETURN-LINE FEED, THE COMPLETE NUMBER MUST 

{*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN, 

;#CALL| 

I* RDOCT IIREAD AN OCTAL NUMBER 

•*■ RETURN HERE {{LOW ORDER BITS ARE ON TOP OF THE 5TACK 

J* IJHIGH ORDER BITS ARE IN 8HI0CT 

I {PROVIDE SPACE FOP THE 

IlINPUT NUMBER 

I JPUSH R0 ON STACK 

IIPU8H Rl ON STACK 

JlPUSH R2 ON STACK 

IIREAD AN ASCIZ LINE 

| {GET ADDRESS OF 1ST CHARACTER 

I {AND SAVE IT 

llCLEAR DATA WORD 



IRDOCTl 


MOV 


(SP)f(5P) 




MOV 


4CSP),2(SP) 




MOV 


P0,»(SP) 




MOV 


R1,«(SP) 




MOV 


P2,«(5P) 


l$l 


RDLIN 






MOV 


(SP)*,R0 




MOV 


R0,5I 




CLR 


Rl 




CLP 


R2 
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1001 


00J316 


11204b 




1002 


003320 


001420 




I0ld>3 


003322 


122716 


000C60 


1004 


003326 


003026 




1*05 


003330 


12271* 


000067 


1006 


003334 


002423 




1007 


i:03336 


006301 




100 8 


003340 


006102 




1009 


003342 


006301 




1010 


003344 


006102 




1011 


003346 


006301 




1012 


003350 


006102 




1013 


003352 


042716 


177770 


101 4 


003356 


0*2601 




1015 


003360 


000756 




1016 


00 3 36 2 


005726 




1017 


003364 


010166 


000012 


1018 


003370 


010267 


000026 


1019 


'503374 


012602 




1020 


003376 


012601 




1021 


003400 


012600 




1022 


003402 


000002 




1023 


003404 


0*5726 




1024 


00340b 


105010 




1025 


003410 


104401 




1026 


003412 


000000 




1027 


003414 


104401 


003224 


1028 


003420 


000730 




1029 


003422 


000000 




1030 








1031 








1032 








1033 








1034 








1035 








1036 








1037 








1038 








1039 








1040 








1041 








1042 








1043 








1044 








1C45 








1046 








1047 


003424 


105767 


000265 


1048 


003430 


100002 




1049 


003432 


000000 




1050 


003434 


000430 




1051 


003436 


010046 




1052 


003440 


017600 


000002 


1053 


003444 


122767 


0^0001 175414 


1054 


003452 


001011 




1055 


003454 


132767 


000100 175405 


1056 


003462 


001405 





SHIOCT! 
.SBTTL 



MOVB 

BEQ 

CMPB 

PGT 

CMPB 

PLT 

ASL 

ROL 

ASL 

FOL 

ASL 

POL 

BIC 

ADD 

BR 

TRT 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 

TST 

CLKB 

TYPE 

,«OBD 

TYPE 

BP 

.WORD 

TYPE 



(H0)+#-(5P) 

36 

S'0,(SP) 

4s 

«'7,(5P) 

4$ 

PI 

P2 

HI 

P2 

PI 

P2 

#"C7,(SP) 

(SPj+iRl 

25 

(SP) + 

P1»12(SP) 

R2f SHIOCT 

(SP)+,R2 

(SP)+,R1 

(SP)+,R0 

(SP) + 



,SQUES 
IS 

ROUTINE 



jjPICKUP THIS CHAPACfER 
J ;IF ZERO GET OUT 
;|MAKE SURE THIS CHARAC1ER 
MIS Art OCTAL DIGIT 



M*2 

> »*4 



J J« 



M5T8IP THE ASCII JUNK 

J {ADD IN THIS DIGIT 

J /LOOP 

MCLEAN TERMINATOR FROri STACK 

; {SAVE THE RESULT 

t ;POP STACK INTO R2 

> {POP STACK INTO Ri 

1 {POP STACK INTO R0 

{ IPFTUM 

MCLEAN PARTIAL FROM STACK 

J {SET A TERMINATOR 

{{TYPE UP THRU THE BAD CHAR, 

>;"?" "CP" S. M LF» 

J {TRY AGAIN 

MH1GH ORDER PITS GO HERE 



^ROUTINE TO TYPE ASCIE MESSAGE, MESSAGE MUST TERMINATE WITH A BYTE, 
*THE POUTI'-E WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 9 
*NQTEt! SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
*N0TE2l SPILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
*N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER, 



;*CALL: 

}*1) USING A TRAP INSTRUCTION 

;» TYPE ,mesADP 

;»0P 



STYPEl 



TYPE 




MESADP 




TSTB 


8TPFLG 


RPL 


IS 


HALT 




bP 


38 


MOV 


R0,-(SP) 


MOV 


92(5P)rP«* 


CMPB 


(fAPTEMYf 8FHV 


BNE 


62$ 


BITR 


#APTSPOOL,SE 


BEU 


62S 



M M *SADR IS FIRST ADDRESS OF AN ASCIE STRING 



> I IS THERF A TERMINAL? 
M6R IF YES 

MHALT HERE IF NO TERMINAL 

J {LEAVE 

{ {SAVE R0 

MGET ADDRESS OF ASCIE STRING 

J jRUNNING IN APT MODE 

IfNOiGO CHECK FUR APT CONSOLE 

> {SPOOL MESSAGE TO APT 
MNO»GO CHECK FOR CONSOLE 
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1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1007 
1068 
1069 
1070 
1071 
1072 
1073 
lu74 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 



003404 
003470 
003474 
003476 
003504 
003506 
003510 
003512 
003514 
003516 
003522 
003524 
00353.1 
003532 
003536 
003540 
003542 
003544 
003546 
003552 
003554 
003560 
0O3564 
003566 

003572 
003576 
003600 
003604 
003610 



003612 
003616 
003622 
003630 
003632 
003634 
003636 
003642 
003644 
k/03652 
003660 
003662 
003666 
003670 
003676 
003700 
003702 
003704 

003706 
003710 
003712 
003713 



O10O67 
004767 

000000 

132767 

001003 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
003225 
105067 
000755 
004767 
126726 
001350 
016746 

105366 
002770 
0047h7 
105367 

P0077M 



112716 
004767 
132767 
001372 
005726 
000724 
105777 
100375 
116677 
122766 

001003 

105067 
000406 
122766 
001402 
105227 

000000 

000207 

177564 
177566 

000 
002 



000004 

000230 



0P0002 

000011 
000200 



000^56 
PD0130 



000120 

000001 



000032 
000072 



000040 
000014 
00000 7 



000002 
000015 



61 S I 

175363 62$: 



60$: 
3$l 



000036 
000002 



5$l 
6SI 



MOV 

J5R 

.WORD 

PITB 

BNF 

MOVP 

PNE 

TST 

MOV 

ADD 

RTI 

CMP0 

BEQ 

CMPB 

BNE 

TST 

TYPE 

SCPLF 

CLPB 

BP 

JSR 

CMPB 

BNF 

MOV 

DECB 

BLT 

JSR 

DECB 

BP 



P0,61$ 

PC,$ATY3 



•*PTC5UF,SENVM 

6L'S 

CR0)+,«(SP) 

4S 

CSPJ + 

(SF)+,P0 

«2,(SP) 

Jtl'T, (SP) 

86 

•CPLF, (5P) 

55 

CSP) + 



SCHARCNT 

2S 

PC8TYFFC 

SFILLC, (SP)+ 

2$ 

$NULL,-(SP) 



KSP) 
6S 

PC,STYPEC 

SCHARCNT 

76 



;H0PIZONTAL TAB PROCESSOR 



PS: 

9$: 



000012 000002 1$: 



MHVB 

JSR 

BITB 

PNE 

TST 

6TYPEC: TSTP 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 

CMPB 
BEU 
INCB 
ICHARCNTI.WORD 
STYPEXi PTS 



»' .(SP) 

POSTYPEC 

#7, SCHARCNT 

98 

CSP) + 

2S 

S8TPS 

STYPEC 

2(SP),(a$TPB 

«CR»2(SPl 

1$ 

SCHARCNT 

6TYPEX 

»LF,2(SP) 

STYPEX 

(PC) + 



PC 



STPSl .WORD 177564 

STPP1 .WORD 177566 

SNULLl .BYTE 

IFILLSI .BYTE 2 



ISETUP MESSAGE ADDRESS FOR APT 

jSPOOL MESSAGE TO APT 

{MESSAGE ADDRESS 

{APT CONSOLE SUPPRESSED 

»YES#SKIP TYPE OUT 

;PUSH CHARACTER 10 BE TYPED ONTO STACK 

{BR IF IT ISN'T THE TERMINATOR 

jlF TERMINATOR pnp If OFF THE STACK 

{RESTURE R0 

{ADJUST RETURN PC 

{RETURN 

{BRANCH IF <HT> 

jBPANCH IF NOT <CRLF> 

jPOP <CRXLF> EQUIV 
» IYPE A CR AND LF 

{CLEAR CHARACTER COUNT 

{GET NEXT CHARACTER 

{GO TYPE THIS CHARACTER 

J IS IT TIME FOR FILLER CHARS.? 

{IF MO GO GET NEXT CHAR. 

{GET • OF FILLER CHARS, DEEDED 

{AND THE NULL CHAR, 

IDOES A NULL NEED TO RE TYPED? 

{bR U NO--G0 pop THE NULL OFF OF STACK 

{GO TYPE A NuiiL 

{DO NOT COUNT AS A COUNT 

{LOOP 



{REPLACE TAB WITH SPACE 

{TYPE A SPACE 

{BRANCH IF NOT AT 

{TAd STOP 

{POP SPACE OFF STACK 

{GET NEXT CHARACTER 

{WAIT UNTIL PRINTER IS READY 

{LOAD CHAR TO BE TYPED INTO DATA REG, 

{IS CHARACTEP A CARRIAGE RETURN? 

{BRANCH IF NO 

JYES-'CLEAR CHARACTER COUNT 

{EXIT 

{IS CHARACTEP A LINE FEED? 

jBRANCh IF YES 

{COUNT THE CHARACTER 

{CHARACTER COUNT STORAGE 



JjTTY PRINTER STATUS REG, ADDRESS 
MTTY PRINTER BUFFER REG, ADDRE5S 
J {CONTAINS NULL CHARACTER FOR FILLS 
{{CONTAINS # OF FILLER CHARACTERS REQUIRED 
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1113 


003714 


012 






SFILLCl 


.BYTE 


12 


1114 


003715 


000 






STPhLGl 


.BYTE 





1115 










9 SBTTL 


APT COMMUNICATIONS POUT 


1116 
















1117 










;}«#*###««###«<»##«##«*##«»#«#$*< 


1118 


003716 


1l27b7 


000W01 


000236 


8ATY1I 


MOVP 


U,SFFLG 


1119 


003724 


112767 


000001 


000226 


sA-mi 


MOVB 


•1»IMFLG 


1120 


fr>H37 32 


000403 








BR 


S&TYC 


1121 


003734 


112767 


000001 


000220 


SATY4I 


MOVB 


#1,SFFLG 


1122 


003742 








SATYCl 






1123 


003742 


010046 








MOV 


P0,-(SP) 


1124 


003744 


010146 








MOV 


RlftSP) 


1125 


003746 


J05767 


000206 






TSTB 


SMFLG 


1126 


003752 


001450 








BEQ 


5$ 


1127 


001754 


122767 


000001 


175104 




CMPB 


«APTENV,$ENV 


112R 


003762 


001031 








BNE 


33 


1129 


003764 


132767 


000100 


175075 




BITB 


*APTSP00L#8ENVM 


1130 


003772 


001425 








BEG 


3$ 


1131 


003774 


017600 


000004 






MOV 


g4(SP),R0 


1132 


004000 


062766 


000002 


000004 




ADD 


S2,4CSP) 


1133 


004006 


005767 


175034 




1$: 


TST 


SMSGTYPE 


1134 


O04012 


001375 








BNE 


IS 


1135 


004014 


010067 


175042 






MOV 


R0r$MSGAD 


1136 


004020 


105720 






281 


TSTB 


(P03 + 


1137 


004022 


001376 








BNE 


28 


1138 


004024 


166700 


175032 






SUB 


$MSGAD,R0 


1139 


004030 


0062*0 








ASR 


P0 


1140 


004032 


010067 


17502b 






MOV 


R0,8MSGLGT 


1141 


004036 


012767 


000004 


175002 




MOV 


*4,$MSGTYPE 


1142 


004044 


000413 








BR 


58 


1143 


004046 


017667 


000004 


000016 


36: 


MOV 


?4(SP),4$ 


1144 


004054 


062766 


000002 


000004 




ADD 


#2,4(SP) 


1145 


004062 


016746 


173710 






MOV 


177776, -CSP) 


1146 


004066 


0047b7 


177332 






JSR 


PCSTYPF 


1147 


004072 


000000 






4 3 J 


.WORD 





1148 


004074 








s$t 






1149 


004074 


105767 


000062 




10SI 


TSTB 


6FFLG 


use 


004100 


001416 








BEQ 


128 


1151 


004102 


005767 


174760 






TST 


8ENV 


1152 


004106 


001413 








BEQ 


128 


1153 


004110 


005767 


174732 




1111 


TST 


8MSGTYPE 


1154 


004114 


001375 








BNE 


118 


1155 


004116 


017667 


000004 


174724 




MOV 


04(SP),8FATAL 


1156 


004124 


062766 


000002 


000004 




ADD 


#2,4(SP) 


1157 


004132 


005267 


174710 






INC 


SMSGTYPE 


1158 


004136 


105067 


000020 




12$; 


CLRB 


8FFLG 


1159 


004142 


105067 


000013 






CLRB 


8LFLG 


1160 


004146 


J05067 


000006 






CLRB 


8MFLG 


U61 


004152 


012601 








MOV 


(SP)+,R1 


1162 


004154 


012600 








MOV 


(5P)+,R0 


1163 


004156 


000207 








RTS 


PC 


1164 


004160 


000 






SMFLGl 


.BYTE 





1165 


004161 


000 






SLFLGj 


.BYTE 





1166 


004162 


000 






6FFLG: 


.BYTE 





1167 




004164 








,FVEN 




1168 




000200 






APTSIZE' 


B200 





M INSERT FILL CHARS, AFTER A "LINE FEED" 
>j"TERMINAL AVAILABLE" FLAG (RIT<07>=0sYES) 



l»TO REPORT FATAL ERROR 
MTO TYPE A MESSAGE 

||T0 ONLY REPORT FATAL ERROR 

1 IPUSH P0 ON STACK 

JlPUSH Rl ON STACK 

MSHOULD T*PE A MESSAGE? 

J * IF NOT! BR 

J OPERATING UNDER APT? 

> » IF NOT I BR 

IISHOHLD SPOOL MESSAGES? 

If IF NOT: BR 

llGET MESSAGE AODR. 

»;BUMP RETURN ADDR, 
USEE IF DONE W/ LAST XMISSION? 
J»IF NOT! WAI1 
IfPUT ADDR IN MAILBOX 
MFIND END OK MESSAGE 

I |SUB START OF MESSAGE 
llGET MESSAGE LNGTH IN WORDS 
IfPUT LENGTH IN MAILBOX 
IJTELL APT TO TAKE MSG, 

MPUT MSG ADDR IN JSR LINKAGE 
MBUMP RETURN ADDRESS 
IIPUSH 177776 ON STACK 
UCALL TYPE MACRO 



M5H0ULD REPORT FATAL ERROR? 

I|IF NOT! BR 

» rRUNNING UNDER APT? 

J I IF NOT! BR 

jjFINISHED LAST MESSAGE? 

niF not: wait 

llGET ERROR 8 

I IBUMP RETURN ADDR, 
! J TELL APT TO TAKE ERROR 
JlCLEAR FATAL FLAG 
||CLEAR LOG FLAG 
I ICLEAR MESSAGE FLAG 
J >POP STACK INTO Rl 
J |POP 5TACK INTO R0 
J tRETURN 
IjMESSG, FLAG 
f |LOG FLAG 
1 IFATAL FLAG 
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1169 




000001 




1170 




000100 




1171 




000040 




U72 








1173 








1174 








1175 








1176 








1177 








1178 








1179 








1180 








1181 








1182 








1183 








1184 








1185 








1186 








1187 








1 188 








1189 








1190 








1191 








1192 








1193 








1194 








1195 








1196 








1197 


004164 


017646 


000000 


1198 


004170 


116667 


00*001 


1199 


004176 


112667 


000207 


1200 


004202 


062716 


0P00P2 


1201 


004206 


000406 




1202 


004210 


112767 


000001 


1203 


004216 


112767 


000006 


1204 


004224 


112767 


000005 


1205 


004232 


010346 




1206 


004234 


010446 




1207 


004236 


010546 




1208 


004240 


116704 


000145 


1209 


004244 


005404 




1210 


004246 


062704 


000006 


1211 


004252 


U0467 


000132 


1212 


004256 


116704 


000125 


1213 


004262 


016605 


000012 


1214 


004266 


005003 




1215 


004270 


006105 




1216 


004272 


000404 




1217 


004274 


006105 




1218 


004276 


006105 




1219 


004300 


006105 




1220 


004302 


010503 




1221 


004304 


006103 




1222 


004306 


105367 


000e76 


1223 


004312 


100016 




1224 


004314 


042703 


177770 



000211 



APTENVB0C1 

APTSPOOLsl00 

APTCSUPS040 

.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

•)#*#»««#*#«##««««#«#»«###««»«««#«###««*####««##«*««#««««#«#««#«* 

;*THIS ROUTINE IS USED TO CHANGE A lb-BIT BINARY NUMBER TO A 6-DIGIT 

f*OCTAL (ASCII) NUMBER AND TYPE IT, 

?#STYP05-«-ENTEP HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

;*CALLl 

J* MOV NUM,»(SP) J|NUMBER TO BE TYPED 

J* TYPOS MCALL FOR TYPEOUT 

J* .BYTE M ;j Ns 1 TO 6 FOP NUMBER OF DIGITS TO TYPE 

;* ,B\TE M ||M»1 OR 

J* MlsTYPE LEADING ZLR05 

?* IJ0SSUPPRESS LEADING ZEROS 

•# 

;#|TYPON— — ENTEP HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

|*STYPOS OR 8TYP0C 

;*CALL: 

J* MOV NUM,-(SP> MNUMBEP TO BE TYPED 

•* TYPON nCALL FOR TYPEOUT 

• * 

;*8TYP0C»«»ENTEP HERE FOR TYPEOUT OF A 16 BII NUMBER 

;*CALL! 

J* MOV NUM,-(SP) |»NUM6EP TO BE TYPED 

;* TYPOC UCALL FOR TYPEOUT 



stypos: 



000171 8TYP0C1 

000165 

000154 8TYP0NI 



18! 

2$: 



381 



MOV 

MOVB 

MOVB 

ADD 

BP 

MOVB 

MOVB 

MOVB 

MOV 

MOV 

MOV 

MOVB 

NEG 

ADD 

MOVB 

MOVB 

MOV 

CLP 

ROL 

BR 

ROL 

ROL 

POL 

MOV 

ROL 

DECB 

BPL 

BIC 



&>(SP),»(SP) 

1(SP)#80F1LL 

(SP)+,$0M0DE+1 

»2,CSP) 

8TYP0N 

#1,$0FILL 

*6,80M0DE+1 

#S,$0CNT 

R3,«(SP) 

R4#»(5P) 

R5,-(SP) 

80MODE+l,R4 

R4 

#6,p4 

R4,80M0DE 

S0FILL,R4 

12(SP),R5 

R3 

R5 

38 

R5 

R5 

R5 

P5,P3 

R3 

80M0DE 

78 

#177770, R3 



nPICKUP THE MODE 

I lLOAD ZERO KILL SWITCH 

M NUMBER OF DIGITS TO TYPE 

HADJUST RETURN ADDRESS 

JISET THE ZERO FILL SWITCH 

||SET FOR SIX(6) DIGITS 

MSET THE ITERATION COUNT 

I JSAVE R3 

IlSAVE R4 

I JSAVE R5 

MGET THE NUMBER OF DIGITS TO T*PE 

MSUBTRACT IT FOR MAX, ALLOWED 

IlSAVE IT FOR USE 

MGET THE ZERO FILL SWITCH 

IJPICKUP THE INPUT NUMBER 

IICLEAR THE OUTPUT WORD 

| IROTATE MSB INTO "C" 

I IGO DO MSB 

IjFORM THIS DIGIT 



f f GET LSB OF THIS DIGIT 
IITYPE THIS DIGIT? 
IJBR IF NO 
llGET RID OF JUNK 



.MAIN, MACYil 1toA(1052) 17-APR-79 idll4 PAGE 26 

C2M9AE.P11 I7-APP-79 10H2 BINARY TO OCTAL (ASCII) AND TYPE 



tiEU 002b 



) 



1225 
1226 
1227 
1 228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1236 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
12b9 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 



00432ft 
004322 
004324 
1)04326 
004 3 30 
004334 
004340 
004344 
004350 
004354 
004356 
004360 
004362 
e04364 
004366 
004370 
004372 
004400 
004402 
004404 
004405 
004406 
004407 
004410 



004412 
004420 
004426 
004430 
004432 
004434 
004436 
004440 
004442 
004446 
004452 
004460 
004462 



004464 
004472 
004476 
004502 
004506 
004510 
004514 
004516 
004520 
004522 
004524 
004526 



001002 
005704 
001403 
005204 
052703 
052703 
110367 
104401 
1053*7 
003347 
002402 
005204 
000744 
012605 
012604 
012603 
016666 
012616 
000002 

000 
000 

000 

000 
000000 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010667 
012737 
000000 
000776 



012737 
016706 
005067 
005267 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 



000060 

01)00 40 

000040 
004404 
0O00 3 2 



000002 000004 



BS 1 

SOCNTI 
60PILLI 
SOMODE! 
.SbTTL 



004552 

000340 



000024 
000026 



174332 

000104 

004464 000U24 



BNF. 

TST 

BEO 

INC 

BIS 

BIS 

MOVB 

TYPE 

DECfl 

RGT 

BLT 

INC 

HP 

MOV 

mov 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

,WOPD 

POWER 



4S 

P4 
5S 

H4 

#'0, 
» ' i 
R3,8 

» as 

SOCN 

2$ 

6$ 

R4 

26 

(SP) 

(SP) 

CvSP) 

2(SP 
(SP) 



P5 

R4 
+ ,R3 
),4(SF) 

(SP) 



; ;TtST FOR 

HSUPPRESS THIS 0? 

7 I BR IF YES 

JjDON'T SUPPRESS ANYMORE 0'S 

j jMAKE THIS DIGIT ASCII 

JJMAKE ASCII IF NOT ALREADY 

j jSAVE FOR TYPING 

J IGO TYPE THIS DIGIT 

» ICOUNT HY 1 

I IBH IF MORE TO DO 

I >dR IF DONE 

MINSUPE LAST DIGIT ISN'T A BLANK 

; jGO DO THE LAST DIGIT 

;>REST0PE R5 

; jRFSTORE R4 

; IRESTORE R3 

jjSET THE STACK FOR RETURNING 



J JRE1URN 

J (STORAGE FOP ASCII DIGIT 

j jTFRMINATOR FOR TYPE ROUTINE 

t JUCTAL DIGIT COUNTER 

;;ZERO FILL SWITCH 

MNtlMBER OF DIGITS TO TYPE 

DOWN AND UP ROUTINES 



;POWER DOWN ROUTINE 



####*####**##**##*##*####*###»»* 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HALT 

BR 



UILLUFf MPWRVEC MSET FOR FAST UP 
#340,a#PWRVFC + 2 ||PP.I0|7 



R0#-(SP) 

Pl,-(SP) 

R2#-(SP) 

R3,-(SP) 

P4#-(SP) 

P5,-(SP) 

PSWRi-CSP) 

SP,SSAVF6 



> JPUSH R0 ON STACK 

> >PUSH Rl ON STACK 
J IPU5H R2 ON STACK 
jjPUSH R3 ON STACK 
MPUSH R4 ON STACK 
J jPUSH R5 ON STACK 

! JPUSH 05WK ON STACK 

; {SAVE SP 



#SPWRT!P,@*PWRVEC MSET UP VECTOR 
,-2 > JHANG UP 



004552 
000060 
000054 
000050 

174264 



;POWEP UP ROUTINE 



*#«##«*#•» 



000024 SpWRUPl 



MOV 
MOV 
CLR 
INC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



#3ILLUP»A*pkRVEC MSET FOR FAST DOWN 

SSAVR6,5P » jGET SP 

SSAVR6 JIWAIT LOOP FOR THE TTY 

SSAVR6 JJWAIT FOR THE INC 

IS j|OF WORD 

(SP)+,9SWR jjPOP STACK INTO PSWP 

(SP)*,R5 JJPOP STACK INTO R5 

(SP)+,R4 MPOP STACK INTO R4 

(SP) + ,R3 MPOP STACK INTO R3 

(SP)+,R2 jjPOP STACK INTO R2 

(SP)*iRl UPOP STACK INTO Rl 

(SP)+,R0 MPOP STACK INTO Kg 
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12B1 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
12B9 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1339 
1336 



A04530 
004536 
004544 
004546 
004550 
004552 
004554 
004556 
004560 
004566 



004624 
004626 
004630 
004632 
004634 



004636 
004640 
004642 

004644 
004646 
004650 
004652 



012737 
012737 
104 401 
004560 
000002 

000000 

000776 
000000 
005015 
000122 



004570 
"04572 
004576 
004600 
004602 
004604 
004610 



010046 
016600 
005740 

111000 

00630^1 
016000 
P00200 



004612 
003424 
004210 
004164 
004224 



002640 
002760 
003264 

177777 
000571 
000457 
00024J 



004412 

000340 



MOV 
MOV 
TYPE 

SPWRMGl .WORD 
PTI 

6ILLUP: HALT 

SSAVP61 



047520 042527 SPOWEPl .ASCIZ < \ 5>*1 2>* , P0*EP" 



*SPWRDN,0*PWFVEC MS£T UP THE POWER DOWN VECTOR 
*340,tMPWRVEC*2 MPFI017 

;REPORT THE POWER FAILURE 
IPOWEP MPOWLR FAIL MESSAGE POINTER 

I I THE POWER UP SEQUENCE WAS STARTED 
,-2 >» BEFORE THE POWER DOWN WAS COMPLETE 

JJPUT THE SP HERE 



004612 011646 

004614 016666 000004 

0P4fa22 000002 



.SBTTL 



.EVEN 

TPAP DECODER 



;#THIS ROUTINE *IJ,L PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
J#AMD USE IT TO INDEX THpOUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;#0F ThE DESIRED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 
;*G0 TO THAT ROUTINF. 



STRAP: 



MOV 


Rfc,«(SP) 


MOV 


2(SP),P0 


TST 


«-(R0) 


MOV* 


CR0),R0 


ASL 


R0 


MOV 


STRPADCR0) 


FTS 


Rf 



> JSAVE R0 

J >GET TRAP ADDRESS 

» >BACKUP RY 2 

I JGFT RIGHT BYTE OF TRAP 

MPOSITION FOP INDEXING 

J I INDEX TO TABLE 

; iGO TO ROUTINE 



;|TBIS IS USE TO HANDLE THF "GETPPI" MACRO 



$TPAP2I MOV 


(SP),-(5P) 


IJMOVE THE PC DOWN 


MOV 


4(SP)#2(SP) 


J JMOVE THE PSW DOWN 


RTI 




MRESTORE THE PSW 



.SBTTL TRAP TABLE 

;#THI5 TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "TRAP" INSTRUCTION, 



ROUTINE 






$TRPAD| .WORD 


STPAP2 




8TYPE 


J1CALLBTYPE 


TPAP+1C104401) 


STYPOC 


1 jCALLsTYPOC 


TRAP+2C104402) 


STYPOS 


JICALL«TYPOS 


TRAP+3C104403) 


STYPON 


• jCALLsTYPON 


TRAP+4(104404) 



SPOCHR jjCALLapDCHR 
8RDLIN MCALLSPDLIN 
SRDOCT jfCALLsRDOCT 



TRAP+5C104405) 
TPAP+6(104406) 
TRAP + 7H04407) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 



TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 



TXCRCl "1 
571 
457 
243 



JM9301 •» YA VERSION 
|M9301 - YB VERSION 
JM9301 • YC VERSION 
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1337 


0046S4 


0^0635 


1330 


004656 


000207 


1339 


004660 


P00670 


1340 


004662 


000132 


1341 


004664 


000374 


1342 


004666 


000630 


1343 


004670 


000536 


1344 


004672 


000752 


1345 


004674 


000633 


1346 


004676 


000650 


1347 


00470A 


000710 


1348 


004702 


177777 


1349 


004704 


177777 


1350 


004706 


177777 


1351 


0«4710 


177777 


1332 


004712 


177777 


1353 






1354 


004714 


177777 


1355 


C04716 


133725 


1356 


004720 


017563 


1357 


004722 


14J744 


1358 


004724 


047613 


1359 


004726 


114175 


J 360 


O04730 


146126 


1361 


004732 


132161 


1362 


004734 


143466 


1363 


004736 


036751 


1364 


004740 


125411 


1365 


004742 


066246 


1366 


004744 


132367 


1367 


004746 


030210 


1368 


004750 


036743 


1369 


004752 


177777 


1370 


004754 


177777 


1371 


004756 


177777 


1372 


004760 


177777 


1373 


004762 


177777 


1374 


004764 


177777 


1375 






1376 


C04766 


177777 


1377 


004770 


001000 


1378 


004772 


001000 


1379 


004774 


001000 


1380 


004776 


001000 


1381 


005000 


001000 


1382 


005002 


004000 


1383 


005004 


001000 


1384 


005006 


001000 


1385 


005010 


001000 


1386 


005012 


000734 


1387 


005014 


001000 


1388 


005016 


001000 


1389 


003020 


001000 


1390 


005022 


001000 


1391 


005024 


177777 


1392 


005026 


177777 



635 

207 

670 

132 

374 

630 

536 

752 

633 

650 

710 

-1 

-1 

-1 

-1 

-1 

-1 

133725 

17563 

141744 

476J3 

114175 

146126 

132161 

143466 

36751 

125411 

066246 

132367 

30210 

36743 

-1 

-1 

-1 

*l 

-1 

-1 

-1 

1000 

1000 

1000 

1000 

1000 

4000 

1000 

1000 

1000 

734 

1000 

1000 

1000 

1000 

-1 

-1 



JM9400 - YACOR YC ) VERSION 

IM9301 - YF VERSION 

IM7942 • YB VERSION 

JM930J- yd VERSION 

IM9400 - YH (OR YK) VERSION 

JM9311 VERSION « REVISION * (ORIGINAL REV.) 

JM9301 - YH VERSION 

|M9301 • YE VERSION 

IM9301 • YJ VERSION 

|M9400 - YN VERSION 

JM9311 VERSION -• REVISION A ( SECOND REV,) 



JM9301 - YA VERSION 

JM9301 - YB VERSION 

JM9301 • YC VERSION 

|M9400 - YACOR YC ) VERSION 

JM9301 - YF VERSION 

JM7942 - YB VERSION 

>M930t • YD VERSION 

JM9400 - YH(OR YK) VERSION 

IM93U VERSION-- REVISION * (ORIGINAL REV,) 

JM9301 - YH VERSION 

IM9301 - YE VERSION 

JM9301 - YJ VERSION 

JM9400 - YN VERSION 

|M93H VEPSION--REVISION A ( SECOND REV.) 



JM9301 • YA VERSION 

JK9301 - YB VERISION 

JM9301 - YC VERSION 

»M9400 - YA(OR YC) VERSION 

JM9301 - YF VERSION 

JM7942 - YB VERSION 

JM9301 - VD VERSION 

IM9400 - YH(OR YK) VERSION 

JM9311 VERSION REVISION * (ORIGINAL VERSION) 

IM9301 - YH VERSION 

JM9301 - YE VERSION 

»M930l - YJ VERSION 

JM9400 - YN VERSION 

JM93U VERSION- REVISION A (SECOND VERSION) 
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1393 


005030 


177777 


1394 


005032 


177777 


1395 


005034 


177777 


1396 






1397 


005036 


177777 


1398 


005040 


17 3000 


1399 


005042 


173000 


1400 


005044 


173000 


1401 


005046 


173000 


1402 


005050 


173000 


1403 


005052 


17000M 


1404 


005054 


173000 


1405 


005056 


173000 


1406 


fc)05060 


163000 


1407 


005062 


173000 


1408 


005064 


173000 


1409 


00506b 


173000 


1410 


005070 


173000 


1411 


005072 


163000 


1412 


005074 


177777 


1413 


005076 


177777 


1414 


005100 


177777 


1415 


005102 


177777 


1416 


005104 


177777 


1417 






1118 


H03106 


177777 


1419 


005H0 


001000 


1420 


005112 


001000 


1421 


005114 


001000 


1422 


005116 


001000 


1423 


005120 


001000 


1424 


005122 


300000 


1425 


005124 


001000 


1426 


005126 


001000 


1427 


005130 


001000 


1428 


005132 


000764 


1429 


005134 


001000 


1430 


005136 


001000 


1431 


00514P 


001000 


1432 


005142 


0010fc0 


1433 


005144 


177777 


1434 


005146 


177777 


1435 


005150 


177777 


1436 


005152 


177777 


1437 


005154 


177777 


1438 






1439 


005156 


177777 


1440 


005160 


165000 


1441 


005162 


165000 


1443 


003164 


165000 


1443 


005166 


165000 


1444 


005170 


165000 


1445 


005172 


000000 


1446 






1447 


003174 


165000 


1448 


005176 


165000 



TRMSAH 



-1 
-1 
-1 

-1 

173000 

173000 

173000 

173000 

17 3000 

170000 

173000 

17300P 

163000 

173000 

173000 

173000 

173000 

163000 

-1 
-1 
-1 
-1 
-1 

-1 

1000 

1000 

1000 

1000 

1000 



1000 

1000 

1000 

764 

1000 

1000 

1000 

1000 

-1 

-1 

■1 

-1 

-1 

-1 

165000 
165000 
165000 
165000 
165000 



165000 
16 



;M9301 - YA VERSION 

|K930l « YB VERSION 

IM9301 - YC VERSION 

JK9400 - YA(OP YC) VERSION 

JM9301 - YF VERSION 

JM7942 - YB VERSION 

JM9301 - YD VERSION 

>M9400 - YHCOR YK) VERSION 

IM9J11 VERSION REVISION * ( ORIGINAL VERSION) 

|M930t - YH VERSION 

JM9301 - YE VERSION 

|M9301 - *J VERSION 

»M9301 - YN VERSION 

IM9J11 VERSION REVISION A (SECOND VERSION) 



JM9301 - YA VERSION 

JM9301 - YB VERSION 

»M930l - YC VERSION 

JM9400 -YA(OR YC ) VERSION 

JM93M1 -YF VERSION 

JM7942 - YB VERSION 

JM9301 - YD VERSION 

|M9400 - YH(OR YK) VERSION 

JV9311 VERSION REVISION * (ORIGINAL REV.) 

JM9301 - YH VERSION 

JM9301 - YE VERSION 

|M9301 - YJ VERSION 

JM9400 - YN VERSION 

»K9311 VERSION REVISION A (SECOND REV.) 



JM9301 - YA VERSION 

JM9301 « YB VERSION 

IM9301 • YC VERSION 

»M94fc}0 » YA(OR YC) VERSION 

JM9341 - YF VERSION 

JM7942 * YB VERSION 



JM9301 
JM9400 



YD VERSION 

Yh(OR YK) VERSION 
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1449 


005200 


166000 




1450 


005202 


165^00 




1451 


0W5204 


163000 




1452 


005i06 


165000 




1453 


005210 


165000 




1454 


005212 


166000 




1455 


005214 


177777 




1456 


005216 


177777 




1457 


0^5220 


177777 




1458 


005222 


177777 




1459 


005224 


1 77777 




1460 








1461 


005 2 26 


177777 




1462 


005230 


006106 




1463 


005232 


006123 




1464 


005234 


006140 




1465 


005236 


006155 




146b 


005240 


006175 




1467 


005242 


006212 




1468 


005244 


006227 




1469 


005246 


006244 




1470 


005250 


006270 




1471 


005252 


006347 




1472 


005254 


006364 




1473 


035256 


006401 




1474 


00526O 


00641b 




1475 


005262 


006433 




1476 


005264 


177777 




1477 


005266 


177777 




1478 


005270 


177777 




1479 


005272 


177777 




1480 


005274 


177777 




1481 








1482 








1483 


005276 


005015 


030122 


1484 


005304 


042524 


052123 


1485 


0C»5311 


015 


052<M2 


1486 


005316 


020105 


051103 


1487 


005324 


040526 


052514 


1488 


005332 


020040 


000 


1489 


005335 


015 


052012 


1490 


005342 


020105 


050114 


1491 


005350 


040526 


052514 


1492 


005356 


020040 


-H!0 


1493 


005361 


015 


042412 


1494 


005366 


041505 


042524 


1495 


005374 


051103 


020103 


1496 


005402 


000040 




1497 


5105404 


005015 


042412 


1498 


005412 


041505 


042524 


1499 


005420 


R5fcll4 


020103 


1500 


005426 


000040 




1501 


005430 


005015 


047503 


1502 


005436 


052125 


042105 


1503 


005444 


041522 


036440 


1504 


005452 


000 





166000 

165000 

165000 

lb5000 

165000 

166000 

-1 

-1 

-1 

-1 

-1 

-1 

KSG1 

MSG2 

M5G3 

MSG4 

MSG5 

M5G6 

MSG7 

MSG10 

MSGU 

MSG12 

M5G11 

MSG14 

MSG15 

MSG16 



Jt-'93U VERSION REVISION * ( ORIGINAL REV,} 



jM930l 


- YH 


VERSION 


IM9301 


- YE 


VERSION 


11*9301 


- YJ 


VERSION 


?M9400 


- YN 


VERSION 



H9311 VERSION REVISION A ( SECOND REV.) 



|M7942 - YH VERSION 



>M9301 • YH VERSION 
JM9301 - YE VERSION 
JM9301 - YJ VERSION 
»M9400 - YN VERSION 
I M9311 REVISION A ( SECOND REV,) 



020115 TITLl .ASCIZ <15><12>/P0M TEST/ 

000 

050131 GETCRCJ .ASCIZ <15><12>/TYPE CRC VALUEl / 

020103 

035105 

050131 GETLPCl .ASCIZ <15><12>/TYPE LPC VALUEl / 

020103 

035105 

050130 EXCRMCj , ASCIZ <l 5>< 1 2>/EXPECTED CRC a / 

020104 

020075 

050130 EXLPMGl .ASCIZ <J 5>< 1 2>< I 2>/EXPECTED LPC s / 

020104 

020075 

050115 ACCRMGi .ASCIZ < 1 5>< 1 2>/C0MP»JTKD CRC ■ / 

041440 

020040 
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1505 


005453 


015 


041412 


046517 


1506 


005460 


H52520 


042524 


020104 


1507 


005466 


050U4 


020103 


020075 


1508 


005474 


000040 






1509 


005476 


005015 


042*12 


042116 


1510 


005504 


047440 


020106 


"42524 


1511 


005512 


052123 


000 




1512 


005515 


015 


052012 


050131 


1513 


005522 


020105 


052123 


P5U01 


1514 


<*05530 


044524 


043516 


04044k) 


1515 


005536 


042104 


027122 


047440 


1516 


005544 


020106 


051461 


020124 


1517 


OM5552 


047522 


020115 


042101 


1518 


005560 


051104 


020056 


050123 


1519 


005566 


041501 


035105 


020040 


1520 


005574 


000 






1521 


005575 


015 


052012 


050111 


1522 


0B5602 


020105 


052123 


051101 


1523 


005610 


044524 


043516 


040440 


1524 


005616 


042104 


027122 


047440 


1525 


005624 


020106 


047062 


020104 


1526 


0J5632 


047522 


020115 


042101 


1527 


005640 


051104 


020056 


050123 


1528 


035646 


041501 


35 1W5 


020040 


1529 


005654 


000 






1530 


005655 


015 


052012 


050131 


1531 


005662 


020105 


042514 


H4J516 


1532 


005670 


044124 


024040 


054502 


1533 


0U5676 


042524 


024523 


047440 


1534 


005704 


020106 


051461 


020124 


1535 


005712 


047522 


0?CM 15 


042101 


1536 


005720 


051104 


020056 


050123 


1537 


005726 


041501 


035105 


020040 


1538 


005734 


000 






1539 


005735 


015 


052012 


050131 


1540 


O05742 


020105 


042514 


043516 


1541 


005750 


044124 


024040 


054502 


1542 


005756 


042524 


024523 


047440 


1543 


005764 


020106 


047062 


020104 


1544 


005772 


047522 


020115 


042101 


1545 


006000 


051104 


020056 


050123 


1546 


006006 


041501 


P35105 


020040 


1547 


006O14 


000 






1548 


006015 


015 


000012 




1549 


006020 


02004P 


000 




1550 


006023 


015 


040412 


042104 


1551 


006030 


042522 


051523 


020040 


1552 


006036 


02004O 


020040 


020040 


1553 


006044 


020040 


020040 


020040 


1554 


006052 


042040 


052101 


000101 


1555 


006060 


020072 


000040 




1556 


006064 


005015 


047125 


047113 


1557 


006072 


053517 


020116 


047515 


1558 


006100 


052504 


042514 


000040 


1559 










1360 


006106 


005015 


034513 


030063 



ACLPMGI .ASCIZ < I 5><1 2>/C0MPUTED LPC a / 

EOTSTj .ASCIZ <15><12><12>/E^n OF TEST/ 

SA1J .ASCIZ <15><12>/TYPE STARTING ADDR, OF 1ST POM ADDR, SPACE} 



SA2I , ASCIZ <15><12>/TYPE STARTING ADDR, OF 2ND ROM ADDR, SPACE! 



SIZEM .ASCIZ <15><12>/TYPE LENGTH (BYTES) Ot 1ST ROM ADDR. SPACE: 



SIZE2J , ASCIZ <15><12>/TYPE LENGTH (BYTES) OF 2 *D ROM ADDR, SPACE: / 



CARLFl , ASCIZ <15><12> 

SP2I .ASCIZ / / 

TYPHDRl .ASCIZ < 15><1 2>/ADDRESS 



COLONi .ASCIZ t\ / 

AUTERMI .ASCIZ <15><1 2>/UNKN0WN MODULE / 



MSG1I .ASCIZ «15><12>/M9301 - YA/ 
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15bl 


006114 


020061 


1562 


006122 


000 


1563 


006123 


015 


1564 


006130 


1:30460 


1565 


006136 


000102 


1566 


0W6140 


005015 


1567 


006146 


020061 


1568 


006154 


000 


1569 


006155 


015 


1570 


006162 


030060 


1571 


006170 


026101 


1572 


006173 


015 


1573 


0U6202 


030460 


1574 


006210 


000106 


15 75 


006212 


005015 


157e 


006220 


020062 


1577 


006226 


000 


1578 


006227 


015 


1579 


006234 


030460 


1580 


006242 


000104 


1581 


006244 


005015 


1582 


006252 


020060 


1583 


006260 


047450 


1584 


006266 


000051 


1585 


006270 


005015 


1586 


006276 


020061 


1587 


006304 


044523 


1588 


006312 


020052 


1589 


006320 


052101 


1590 


006326 


026505 


1591 


006334 


H31462 


1592 


£06342 


034501 


1593 


006347 


015 


1594 


0*6354 


030460 


1595 


006362 


000110 


1596 


006364 


005015 


1597 


006372 


020061 


1598 


006400 


000 


1599 


006401 


015 


1600 


006406 


030460 


1601 


006414 


000112 


1602 


006416 


005015 


1603 


006424 


020060 


1604 


006432 


^03 


1605 


006433 


015 


1606 


006440 


030461 


1607 


006446 


051511 


1608 


006454 


020101 


1609 


006462 


052101 


1610 


006470 


026505 


1611 


006476 


031462 


1612 


006504 


0345P1 


1613 




000001 



020055 040531 

046412 031471 MSG2! .ASCIZ < 1 5><1 2>/^9301 - Y3/ 

026440 054440 

034515 03f*0o3 fcSC3l , ASCIZ <15>< 1 2>/M9301 - YC/ 

H20P55 041531 

046412 032071 MSG4J .ASCIZ < 1 5><1 2>/^9400 - YA,YC/ 

026440 054440 

041531 000 

04641? 031471 MSG5I .ASCIZ <1 5><12>/^9301 - YF/ 

02b440 054440 

033515 032071 HSG6: .ASCIZ <1 5><1 2>/M7942 - Y8/ 

020055 041131 

046412 031471 fSG7» .ASCIZ <15>«1 2>/M9301 - *D/ 

02644k; 05444O 

034M5 030064 MSG10I .ASCIZ <1 5><1 2>/ M 9400 - XH(0R YK)/ 

20P5 5 044131 

020122 045531 

034515 030463 MSGHi .ASCIZ «1 5><1 2>/ M 93 1 1 REVISIUN # (LOCATION E«5 « 23-524A9) / 

042522 044526 

047117 020040 

046050 041517 

047511 020116 

020065 020075 

032455 032062 

020051 000 

046412 031471 MSG12J .ASCIZ < 15>< 1 2>/"9301 - YH/ 

026440 054440 

034515 030063 WSG13I .ASCIZ <15><1 2>/^93tU - YE/ 

020055 042531 

046412 031471 MSG14I .ASCIZ «15><1 2>/M9301 - YJ/ 

026440 054440 

034515 030064 MSG15I .ASCIZ < 1 5><12>/^ 9400 - YN/ 

020055 047131 

046412 031471 *SGl6l .ASCIZ <1 5><1 2>/ M 931 1 REVISION A (LOCATION E-5 » 23-688A9) / 

051040 053105 

047511 020116 

046050 041517 

047511 020116 

020065 020075 

P33055 034070 

020051 000 

.END 
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ABASE s 000000 


569 






ACCRMG 005430 


707 


1S0H 




ACDW1 b H00000 


569 






ACDW2 b 0.JP000 


569 






ACLPMG 005453 


725 


1505# 




ACPUOPs 000000 


569 


584 




ACTCPC 001022 


529* 


676* 699 708 


750 780* 


ACTLPC 001024 


530# 


677* 718 726 


805 812* 


ADDW0 a 000000 


569 






ADDW1 a 000000 


569 






ADDW10a 000000 


569 






ADDMU 000000 


569 






ADDW12a 00(?005» 


569 






ADDW13B 000000 


569 






ADDW14B 000000 


569 






ADDW15S 000000 


569 






ADDW2 s ^0000^ 


569 






ADDW3 a 000000 


569 






ADDw4 s 000000 


569 






AD0W5 ■ 000O00 


569 






ADDW6 s 004000 


569 






ADDW7 s 000000 


569 






ADDW8 = 000000 


5b9 






ADDW9 s 000000 


569 






ADEVCTs 000000 


569 


575 




ADEVH b 000000 


569 






AENV s 000000 


569 


580 




AENVM a 000000 


569 


581 




AFATALs 000000 


569 


572 




AMADPls O00000 


569 






AMADP28 000000 


569 






AMADP3a 00000?. 


569 






AMADR4B 000000 


569 






AMAMSls 000000 


569 






AMAMS2s 000000 


569 






AMAMS3s 000000 


569 






AMAMS4a 000000 


569 






AMSGADa 000000 


569 


577 




AMSGLGs 000000 


569 


578 




AMSCTYs 000000 


569 


571 




AMTYPls 000000 


569 






AMTKP2S 000000 


569 






AMTYP38 000000 


569 






AMTYP48 000000 


569 






APASS » 000000 


569 


574 




APRlORs 000000 


569 






APTCSUa 000040 


1060 


1171* 




APTENVa 000001 


1053 


1127 H69# 




APTSIZs 000200 


621 


1168* 




APTSPOb 000100 


1055 


1129 1170# 




ASWREGs 000000 


569 


582 




ATESTNs 000000 


569 


573 




AUMT 9 000000 


569 


576 




AUSWp s 000000 


569 


583 




AUTACT 002522 


698 


8490 




AUTEPM 006064 


865 


15563 
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AUTEPR 002612 


852 


8b4* 








AUT1 


002524 


9508 


854 








AUT2 


092170 


857* 


859* 








AUT3 


W32572 


856 


860* 








avect: 


La 00^000 


56<» 










AVECT28 040000 


5fe9 










BITO 


a 00(?001 


485* 










PIT00 


a 000001 


475* 


485 








BITfc?! 


a 000002 


474* 


484 








PITw2 


a 000004 


473* 


483 








BIT03 


a 000010 


472* 


482 








BIT04 


a 000020 


4711 


481 








BIT05 


8 000040 


470* 


480 








BIT06 


8 000100 


4698 


479 








BIT07 


B 1)00200 


4668 


478 








BIT0P 


a 000400 


467# 


477 








BIT09 


a 001000 


4bb» 


476 








BIT1 


a 000002 


484* 










BIT10 


B 002000 


4658 










BIT11 


a 004-300 


4648 










BIT12 


a 010000 


4638 










BIT13 


a 020000 


462* 










BIT14 


a 042000 


46 1* 










BIT15 


a 100000 


460* 










BIT2 


B 000004 


483* 










BIT3 


a 000010 


4R2# 










BIT4 


» 000020 


461 a 










BIT5 


s O00040 


480* 










BIT6 


a 000100 


4790 










BIT7 


a 000200 


478* 










BIT8 


a 000400 


477* 










BIT9 


B 001000 


476« 










BPTVEC 


a 000014 


492# 










CARLF 


006015 


832 


837 


1548* 






CHECK 


001510 


642 


644 


646 


673* 




CH0 


001566 


679 


6868 








CHI 


001644 


688 


697 


699* 






CM 


001736 


700 


713 


718* 


862 




CK2 


002030 


719 


731 


736* 






CLLAST 


002204 


773 


775# 








CLPO 


002252 


784* 


790 








CLP1 


O02264 


785 


787# 








CLP2 


002316 


794 


796* 








CLP 


002102 


751* 


757 


774 






CM 


0O2146 


765* 










CL2 


002170 


762 


771* 








CL3 


002122 


753 


758* 








COLON 


006060 


841 


3555* 








CR 


8 000015 


400* 


1099 


1109 






CRC 


002074 


681 


689 


750* 






CRLF 


a 000200 


4018 


1070 


1109 






DATLNi 


001006 


523# 


638* 


664# 


678 643 818 


DATLN2 


001012 


525* 


640* 


672* 


687 691 U23 


DDISP 


a 177570 


407# 


609 








DISPLA 


001002 


521* 


609* 


617* 






PISPRE 


000174 


508* 


617 
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DS*R a 


177570 


4061 


60S 










EMTVEC* 


000030 


495* 












ENDOT 


002446 


825 


827* 










EOTST 


005476 


7 39 


828 


15098 








EPRVECa 


00OO04 


488* 


606 


607* 


618* 






EXCPC 


O01016 


527* 


637* 


652* 


699 


704 


B60* 


EXCRMG 


005361 


703 


1493* 










EXLPC 


OO1020 


528* 


636* 


656* 


718 


722 


861* 


EXLPMG 


0054O4 


721 


1497* 










GETCRC 


005311 


650 


1485* 










GETIN 


00137O 


634 


643* 










GETLPC 


005 3 35 


654 


1489* 










GET2 


001440 


648 


657* 










GNS 8 


****** u 


507 


1323 


1324 


1325 


1326 


1329 1330 


GOAGIN 


E02070 


742 


748* 










HT a 


00001 1 


398* 


1068 


1109 








IOTVECa 


000020 


493# 












LF a 


000012 


399* 


ll«3 


1109 








LPC 


002344 


685 


693 


805* 








LPC1 


002352 


806* 


811 










LPC2 


002366 


808 


810* 










MSG1 


006106 


1462 


1560* 










MSG10 


006244 


1469 


1581* 










MSG11 


0O627O 


1470 


1585* 










MSG12 


006347 


1471 


1593* 










MSG13 


006364 


1472 


1596* 










MSG14 


OO6401 


1473 


1599* 










KSG15 


006416 


1474 


1602* 










MSG16 


006433 


1475 


1605* 










MSG2 


0O6123 


1463 


1563* 










MSG3 


006140 


1464 


1566* 










MSG4 


006155 


1465 


1569* 










MSG5 


006175 


146b 


1572* 










MSGb 


0O6212 


1467 


1575* 










MSG7 


006227 


1468 


1578* 










PARCNT 


001026 


531* 


782* 


786* 


793 






PARITY 


002242 


758 


782* 










PIPO a 


177772 


405* 












PlPOVEs 


000240 


499* 












PRO a 


000000 


422* 












PR1 a 


000040 


423* 












PR2 a 


000100 


424* 












PR3 a 


000140 


425* 












PR4 a 


000200 


426* 












PR5 a 


0OO240 


427* 












FR6 a 


000300 


428* 












PR7 a 


000340 


4298 












PS a 


177776 


402* 


403 


516* 








PSW a 


177776 


403* 












PWRVECa 


000024 


494* 


602* 


603* 


1253* 


1254* 


1263* 1269* 


RDCHR a 


104405 


921 


1329* 










RDLIN s 


1O4406 


996 


1330* 










RDOCT a 


104407 


651 


655 


659 


663 


667 


671 1331* 


RESTRT 


001274 


626 


630* 


748 








PESVECa 


000010 


489* 












R0MSA1 


001004 


522* 


639* 


660* 


680 


682 


817 



1281* 1282* 



8 MAIN g MACYli 3HA(1052) 17«APR»79 10(14 PAGE 37 

CEM9AE S PJ1 i7»APR-7«) 101 12 CROSS REFERENCE TABLE •- USER SYMBOLS 



ROMSA2 


001010 


SA1 




005515 


SA2 




005575 


SIZE1 




005655 


SIZE2 




005735 


SP2 




006020 


STACK 


3 


001100 


STAPT 




001076 


STKLMTs 


177774 


ST2 




k/01320 


SWR 




001000 


SWREG 




00017A 


SW0 


S 


000001 


SW00 


8 


000001 


SW01 


23 


000002 


Sl*02 


S 


000004 


SW03 


a 


000010 


SW04 


g 


000020 


SW05 


a 


000040 


SW06 


S3 


000100 


SW07 


a 


000200 


SW0B 


s 


000400 


SW09 


8 


001000 


SW1 


8 


000002 


SM0 


3 


002000 


swu 


B 


004000 


SW12 


8 


010000 


SW13 


S 


020000 


SW14 


8 


040000 


SW15 


B 


100000 


SW2 


S 


000004 


SW3 


a 


000010 


3W4 


8 


000020 


SW5 


a 


000040 


SW6 


s 


000100 


SW7 


8 


000200 


SW8 


8 


000100 


SW9 


8 


001000 


TBITVE 


;« 


000014 


TDLNl 




004766 


TDLN2 




005106 


TITL 




005276 


TKVEC 


8 


000060 


TMSG 




005226 


TPVEC 


s 


000064 


TRAFVE 


:■ 


000034 


TRMSA1 




005036 


TPMSA2 




005156 


TRTVEC 


'8 


000014 


TXCRC 




004644 


TXLPC 




004714 


TYP 




002454 


TYPE 


S 


104401 



TYPHDP W06023 



524» 

656 

666 

6b2 

b70 

845 

393# 

512 

404* 

635* 

520ft 

509* 

457* 

447* 

446* 

445* 

444* 

443* 

442» 

4418 

440* 

439* 

4380 

4569 

417# 

4368 

435* 

414* 

433* 

432# 

455* 

454* 

453* 

452* 

451* 

450* 

449« 

4489 

490* 

638 

640 

628 

497* 

851 

498* 

4<>b» 

639 

641 

491* 

637 

636 

821 

627 

827 

951 

816 



641* 
1512s 
1521* 
1530S 
1539* 
1549# 

514 



608* 
616 

457 
456 
455 
454 
453 
452 
451 
450 
449 
448 



1 376* 

1416* 

1483* 



517* 
1397* 
1439* 

853 
861 
826 
649 
831 
954 
15508 



610 
632 



I2bl 



) 



1461* 

600* 



860 
13548 
831* 
653 
836 
958 



657 

840 

102b 



661 

844 

1027 



665 

858 

1073 



669 

864 

1232 



702 

928 

1283 



706 

934 

1323* 



720 
939 



724 
943 



7Jd 
948 



815 

949 
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705 
1 3268 

1325* 
511* 
675 
820 
834* 
8 35 
833 
759 
526* 
812 
553 
1149 
1120 
1118* 
1058 
1121 • 
1075* 
1329 
598 
972* 
943 
584* 
948 
5753 
540 
5fl0« 
5*1* 
579* 
565 
572* 
1118* 
1078 
1112* 
1328 

560 8 

1018* 

1253 

958 

1159* 

561 

561* 

1119* 

975* 

577* 

578* 

571* 

973* 

1080 

1204* 

1199* 

574* 

563* 

1284 

602 
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USER SYMBOLS 



TKPOC a 


■ 104402 


TYPON a 


t 104404 


TYPOS b 


; 104403 


TYPOUT 


001030 


TYPROM 


002402 


TYPR1 


002426 


TYP0 


002462 


TYP2 


002504 


TYP3 


002470 


XOR 


002320 


XORS 


001014 


IAPTHD 


001032 


$ASTATa 


: ****** U 


8ATYC 


003742 


$AT¥1 


003716 


8A1Y3 


003724 


SATY4 


003734 


SCHARC 


003702 


SCKSWpa 


****** U 


SCMTAGa 


****** u 


ICN'TLG 


003235 


SCNTLU 


003230 


SCPUOP 


90107 4 


SCRLF 


003225 


SDEVCT 


001056 


gENDAD 


002060 


SENV 


031066 


SENVM 


001067 


• ETABI, 


00106b 


$ETEND 


001076 


SFATAL 


C01050 


IFFLG 


004162 


SF1LLC 


003714 


SF1LLS 


003713 


SGTSWRs 


****** u 


8HIBTS 


001032 


IHIOCT 


003422 


gILLUP 


H04552 


SLF 


003226 


ILFLG 


004161 


SMAIL 


001046 


IMBADR 


001034 


SMFLG 


004160 


$MNEW 


003253 


SMSGAD 


001062 


3MSGLG 


001064 


SMSGTY 


001046 


• M6WF 


003242 


iNULL 


003712 


SOCNT 


004406 


IOMODE 


004410 


IPASS 


001034 


SPASTM 


001040 


IPOWgP 


004560 


SP&RDN 


004412 



513* 532* 

615* 

822* 

847 

842* 

836* 

798* 809 

750* 771* 

559* 
1164 
1122* 

1119* 

1085* 1092 



625 
645 
621 

591* 

594* 

1121* 

1113* 



1029* 
1269 

970* 
1165* 

565 

1125 

1135* 

1140* 

595* 

1111* 
1233* 

1203* 
620* 

1289* 
1253* 



1030 1074 

710 728 

694 712 

1055 1060 



714* 
1149 



732* 
1158* 



1286* 

1030 1115 

570* 620 

1160* 1164* 
1138 

715* 733* 



839 
673 



8P1* 



1101* 1106* 



736 

730 

1129 



866* 
1166* 



744* 
1053 



855 
1127 



III 



867* 1133 1141* 1153 1157* 



1246* 

1208 1211* 1222* 1248* 
740* 



1281 



g# sm$0S" 
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SPWRMG 


004546 




1284# 




















8PWPUP 


004464 




12b3 


1269# 


















IQUES 


003224 




951 


968* 


1027 


1030 


1115 












8RDCHR 


002640 




8R8# 


1329 


















*RDDEC« 


**###* 


U 


1332 




















$RDLIN 


002760 




916# 


1330 


















IPDOCT 


H03264 




991* 


1331 


















SPDSZ s 


000010 




909 a 




















SR2A a 


##•*#» 


U 


1312 




















SSAVREs 


#*#**» 


u 


1332 




















SSAVR6 


004556 




1262* 


1270 


127U 


1272* 


1288* 












ISETUPs 


000014 




510K 


399 


600 


602 


604 


877 


977 








SSTUP n 


177777 




510# 




















SSVPC s 


001032 




538* 


543 


















65WP 8 


000000 




389# 


1295 


















ISWRLG 


O01070 




5*2# 


623 


















ITESTN 


0010S2 




573# 


596* 


















STKB 


002636 




874# 


892 


898 
















6TKS 


002634 




6738 


890 


896 
















STPB 


003710 




1098* 


1110* 


















STPFLG 


003715 




1047 


1114# 


















STPS 


003706 




1096 


1109« 


















STRAP 


004570 




6tt0 


1300K 


















STRAP2 


004612 




1311» 


1322 


















ITRP s 


000010 




1315# 


1324* 


13258 


1326j« 


1327# 


1329 


13309 


13JH 


13320 




STRPAD 


004624 




1305 


1322* 


















STSTH 


001036 




562» 




















STTYIN 


003214 




918 


919 


931 


949 


9b3 


967# 










ITYPBNb 


»**#«« 


u 


1327 




















«TYPDS« 


«««««# 


u 


1327 




















STYPE 


003424 




1047S 


1146 


1315 


1323 














$TYPEC 


003636 




1077 


1084 


1091 


1096» 


1097 












STYPEX 


003704 




1102 


1104 


1107* 
















8TYP0C 


00421C 




1202 


1324 


















8TYP0N 


004224 




1201 


1204# 


1326 
















8TYP0S 


004164 




1197# 


1325 


















8UNIT 


001060 




576« 




















IUNITM 


001042 




564# 




















JUSWR 


001072 




5<?3« 




















S0FILL 


004407 




1198* 


1202* 


1212 


1247* 














t a 


006511 




500* 


503# 


5079 


510* 


519* 


538 


539# 


541* 


543# 549 


550» 5528 554* 








873 


874 


967# 


968 


969 


970 


977 


1030 


1109 1110 


1111 1112 1113 








1114 


1115 


1167* 


1265 


1287 












,SASTAb 


*##*#* 


u 


1119 


1122 


















,SX a 


001032 




549* 


554 



















ABS, 006511 



ERRORS DETECTtH 



CZMgAE.BINjCZMgAE.SEO/CRF/SOL/NLiTOCsSYSMAC.SML^CZMgAE.PH 
RUN-TIMEl 38 33 1 SECONDS 
RUN-TIME RATIOi 356/74s4.7 
COPE USEDl 32K (63 PAGES) 
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